#include "PROTHEUS.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Fun‡„o ³ TM200SEQ ³ FBSOLUTIONS ³ Data ³01.07.2010 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡„o ³ Ponto de entrada TM200SEQ ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Uso ³ ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/
User Function TM200SEQ()
Local nCnt := 0
Local aNfCte := ParamIXB[1]
Local cLotNfc := ParamIXB[2]
Local cNumNfc := ''
Local cSerNfc := ''
Local cCliRem := ''
Local cLojRem := ''
Local cServic := ''
Local cCliDes := ''
Local cLojDes := ''
Local cCliDev := ''
Local cCodPro := ''
Local cSeq := ''
Local aAreaAtu := GetArea()
Local aAreaDTC := DTC->(GetArea())
//-- Formato do vetor aNfCte
//-- [01] = Numero da nota fiscal do cliente
//-- [02] = Serie da nota fiscal do cliente
//-- [03] = Cliente remetente
//-- [04] = Loja do cliente remetente
//-- [05] = Volume
//-- [06] = Valor da mercadoria
//-- [07] = Peso real
//-- [08] = Peso cubado
//-- [09] = Metro cubico
//-- [10] = Base de seguro
//-- [11] = Numero do contrato
//-- [12] = Tipo de servico
//-- [13] = Tipo de transporte
//-- [14] = Codigo da regiao de origem
//-- [15] = Codigo da regiao de destino P/ 1o percurso
//-- [16] = Codigo do servico
//-- [17] = Cliente agrupamento
//-- [18] = Loja do cliente agrupamento
//-- [19] = Cliente destinatario
//-- [20] = Loja do cliente destinatario
//-- [21] = Cliente devedor
//-- [22] = Loja do cliente devedor
//-- [23] = Codigo do produto
//-- [24] = Numero da cotacao
//-- [25] = Qtde de notas fiscais por conhecimento P/ 1o percurso
//-- [26] = Peso maximo por conhecimento P/ 1o percurso
//-- [27] = Quantidade de unitizadores
//-- [28] = Valor do frete despachante
//-- [29] = Filial despachante
//-- [30] = CTRC despachante
//-- [31] = Considera ou nao as quebras por numero de notas fiscais por CTRC e peso maximo por CTRC p/ 1o percurso
//-- [32] = Numero da solicitacao de coleta
//-- [33] = Tipo nfc
//-- [34] = Peso Informado (0=Nao; 1=Sim)
//-- [35] = Condicao de Pagamento
//-- [36] = Sequencia de Endereco Destinatario
//-- [37] = Sequencia de Inscricao Devedor
//-- [38] = Peso Liquido
DTC->(dbSetOrder(1))
For nCnt := 1 To Len(aNfCte)
cNumNfc := aNfCte[nCnt,01]
cSerNfc := aNfCte[nCnt,02]
cCliRem := aNfCte[nCnt,03]
cLojRem := aNfCte[nCnt,04]
cServic := aNfCte[nCnt,16]
cCliDes := aNfCte[nCnt,19]
cLojDes := aNfCte[nCnt,20]
cCliDev := aNfCte[nCnt,21]
cCodPro := aNfCte[nCnt,23]
If DTC->(dbSeek(xFilial('DTC')+cFilAnt+cLotNfc+cCliRem+cLojRem+cCliDes+cLojDes+cServic+cCodPro+cNumNfc+cSerNfc))
If DTC->(FieldPos('DTC_SEQDIG')) > 0 .And. DTC->DTC_SEQDIG > 0
cSeq := StrZero(DTC->DTC_SEQDIG,8)
EndIf
Exit
EndIf
Next nCnt
RestArea(aAreaDTC)
RestArea(aAreaAtu)
Return cSeq
