TM200SEQ – Altera ordem da sequência no cálculo do frete

Precisa de ajuda sobre este assunto em seu ERP?

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

#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

#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

Conteúdo Exclusivo!👇

Sobre
Últimos Posts

Siga na rede

Fernando Bueno

Consultor em FBSOLUTIONS

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Siga-me no Linked In

Siga na rede

TM200SEQ – Altera ordem da sequência no cálculo do frete2 minutos de leitura

Fernando Bueno

Últimos posts por Fernando Bueno (exibir todos)