Descrição

Ponto de entrada para customização da parcela de câmbio

Observações

Exemplos

#Include 'Protheus.ch'

User Function EICAP100()

Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))

Do Case
Case cParam == "GRV_TRB_ADIANTAMENTO"
lBlqPOCpAlt := .T.
MsgInfo("Ponto de Entrada chamado corretamente!")

Case cParam == "ANTES_ADTO"
MsgInfo("Entrou no ponto de entrada 'ANTES_ADTO'.")

EndCase

Return Nil

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

GRV_TRB_ADIANTAMENTO

ANTES_ADTO

Retorno

Eventos de chamada do Ponto de Entrada

Variáveis

_nDias, dDataEmb, cTipAd

Programa Fonte

EICAP100.PRW