Linha Microsiga Protheus

Árvore de páginas

CRD010PG - Tratamento no final da rotina de Cadastro de Clientes - CRDA010

Descrição:

Disponibilizar P.E para atuar no momento da finalização do cadastro de Clientes.

Eventos:

O ponto de entrada é executado após a gravação dos dados do cliente.

Programa Fonte:CRDA010.PRW

Parâmetros:

NomeTipoDescrição
ParamIxb[1]Inteiro

nOpc :

2 -> Visualizacao   

3 -> Inclusão   

4 -> Alteração     

5 -> Exclusão

Retorno:

sem retorno


#INCLUDE "totvs.ch"

//--------------------------------------------------------------
/*/{Protheus.doc} CRD010PG
Descrição: Ponto de Entrada CRD010PG
Validação no final do processo de Cadastro de Cliente - CRDA010
@author - User Function
@since 02/2019
/*/
//--------------------------------------------------------------
User Function CRD010PG()

Local iOpc := PARAMIXB[1]

//iOpc : 2 -> Visualizacao // 3 -> Inclusao // 4 -> Alteracao // 5 -> Exclusao

If iOpc == 2
COnout(" Efetuado uma visualização de Cliente - CRDA010 ")
ElseIf iOpc == 3
COnout(" Efetuado uma Inclusão de Cliente - CRDA010 : " + SA1->A1_COD)
ElseIf iOpc == 4
COnout(" Efetuado uma Alteração de Cliente - CRDA010 ")
ElseIf iOpc == 5
COnout(" Efetuado uma Exclusao de Cliente - CRDA010 ")
EndIf

Return NIL