User Function EICOR100() Local cParam:= "" IF Type("ParamIXB") == "C" cParam:= PARAMIXB Else cParam:= PARAMIXB[1] Endif IF cParam == "ALTERA_PROCESSO" msginfo("Entrou no ponto de entrada 'ALTERA_PROCESSO'") //bProcPE :={ ||"TESTE" } //bProcPE :={ ||SW2->W2_PO_NUM } ENDIF Return Nil
//-----Exemplo de utilização para manipulação da Work Gip_Lite User Function EICOR100() Local lRet := .T. Local aTexto := {} If PARAMIXB == "ANTES_CRIA_ARQ" nRecno := Gip_Lite->(Recno()) nTamWkGip := Gip_Lite->(reccount()) Gip_Lite->(Dbgotop()) Do While Gip_Lite->(!Eof()) aAdd( aTexto, Alltrim(Gip_Lite->GIPTEXTO) ) Gip_Lite->(DbSkip()) EndDo Gip_Lite->(Dbgotop()) EndIf Return lRet
User Function eicor100() Local cParam If ValType(ParamIXB) == "A" // sempre deve ter este código no RDMAKE para identificar o nome do ponto de entrada cParam:= ParamIXB[1] Else cParam:= ParamIXB EndIf Do Case Case cParam == "DESC_IT_NVE" cTexto := "NVEA TESTE DA DESCRICAO DO ITEM NA NVE PRODUTO" EndCase Return ==========================
|