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

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

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)