Descrição

Este ponto de entrada está localizado na rotina de liberação de Pagamento do Contrato de Carreteiro.

Observações

Exemplos

User Function TM251PAR()
Local nOpc := PARAMIXB [ 1 ]
Local cNewNat := ''

If nOpc == 2 //-- Natureza ref. ao título de Pedágio
cNewNat := PadR('NAT-PDG',Len(SED->ED_CODIGO)) //-- Nova Natureza
ElseIf nOpc == 3 //-- Natureza Utilizada nos Titulos Gerados para a Filial de Debito
cNewNat := PadR('NAT-DEB',Len(SED->ED_CODIGO)) //-- Nova Natureza
EndIf
Return(cNewNat)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Variável do tipo Array (PARAMIXB) com 1 item (Numérico) indica a natureza a ser retornada onde 2 para natureza pedágio e 3 para natureza utilizada nos titulos gerados para a Filial de Débito.

Retorno

Variável do tipo caracter contendo a nova natureza para considerar na geração do contrato de carreteiro.

Eventos de chamada do Ponto de Entrada

Variáveis

TMSA251.PRW

Programa Fonte