💡 Se gostou deste conteúdo, compartilhe com quem precisa
Salve pessoal,
Segue um ponto de entrada que deixa alterar a ordem da seqüência de entrada de digitação de notas fiscais do lote na emissão do frete.
Este PE está localizado no programa TMSA200.PRW
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 |
#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 |
Muio útil
