Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
User Function EECAE102()

Local cParam := ""
 Local lRet:= .T.

Begin Sequence

	If ValType(ParamIXB) == "A"

   		cParam:= ParamIXB1ParamIXB[1]

	Else

   		cParam:= ParamIXB

	EndIf

	If cParam == "EE9_ENCHOICE_ESTRU"

   		AAdd(aItemEnchoice, "COLOQUE AQUI O SEU CAMPO")

	EndIf

	If cParam == "TP_AGNT_EMB"
   		MSGINFO("PONTO DE ENTRADA 'TP_AGNT_EMB'  ATIVO!") 
	EndIf
	
	If cParam == "Valid_NF"
		lValidUsoNF := .F.
	Endif
	
 	if cParam == "VALIDA_CAMPO"
        IF ParamIXB[2] == "EEC_DTCONH"
            lPEVldCpo:=.F.
            lPERetVld:=.F.
       	ENDIF
    Endif
End Sequence

Return

...