Logística - Linha Protheus - TMS - Ponto de entrada PAMPTDCA Incluir novos pontos de descarga

  Tempo aproximado para leitura: 00:00:20 min

Dúvida
Como implementar o ponto de entrada PAMPTDCA Incluir novos pontos de descarga?

Ambiente
TOTVS Logística - TOTVS TMS (Linha Protheus) - Gestão de Transportes (TMS) - Todas as versões

Solução
O ponto de entrada PAMPTDCA foi disponibilizado para permitir a inclusão de novos pontos de descarga quando fizer Integração com a Pamcard.

Programa Fonte: TMSpamcard.prw

Eventos de chamada do Ponto de Entrada: PAMPTDCA()

Retorno: Return (aPtoDca)

Exemplos:

#Include 'Protheus.ch'
User Function PAMPTDCA()

Local aPtoUsr := {}
Local aPtoDca := {{ '', '' }}
Local cFilOri :=PARAMIXB[1]
Local cViagem :=PARAMIXB[2]

If ValType(aPtoUsr) == "A"
       Aadd(aPtoDca, { 'N09209', 'SP' } ) //--Código de origem + Grupo de região
       MSGALERT("TESTE para incluir novos pontos de descarga")
EndIf

Return (aPtoDca)