TM251PAR – Informar Natureza Operação

Descrição

Este ponto de entrada está localizado na rotina de liberação de Pagamento do Contrato de Carreteiro, que permite informar a natureza de operação.

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