TMALTREG - Altera as Regiões de OrigemDestino

Este Ponto de Entrada está localizado na função TMSCalFrePag() executada pela Rotina de Contrato de Carreteiro. Tem como objetivo alterar as regiões de origem / destino que serão utilizadas no calculo do frete a pagar para o carreteiro.
Os parametros deste Ponto de Entrada são : 1- Região de Origem / 2 - Região de Destino
O Retorno deste Ponto de Entrada deverá ser um vetor contendo a  Regiões de Origem / Destino que serão  utilizadas no calculo do frete a pagar.

TMSXFUNB.PRW

TMALTREG - Altera as Regiões de Origem/Destino ( [ ExpC1 ], [ ExpC2 ] ) --> aReg

aReg(vetor)
• Vetor contendo as NOVAS Regiões de Origem / Destino que deverão ser consideradas no calculo do frete a pagar

PS: Ao executar este ponto de entrada, os arquivos de viagem (DTQ/ DTR) já est ão posicionados.

User Function TMALTREG()Local cCdrOri   := ParamIXB[1]Local cCdrDes  := ParamIXB[2]If  DTQ->DTQ_SERTMS == StrZero(1,Len(DTQ->DTQ_ SERTMS)) //-- Viagem de Coleta   cCdrOri :=  '000001'    //-- NOVA Regiao Origem  que sera considerada no calculo do Frete a Pagar     cCdrDes := '000002'    //-- NOVA Regiao Destino que sera considerada no calculo do Frete a PagarEndIfReturn {cCdrOr i, cCdrDes}