Histórico da Página

Exemplos

User Function EECPS400M410SSERV()

If ExistBlock("M410SSERV")
aPE := ExecBlock("M410SSERV",.F.,.F.,

{aCab,aItens,nOpcao }

)
aCab := aPE[1]
aItens := aPE[2]
EndIf

Return NilLocal aCab:= {}, aItens:= {}
Local nOpcao
Local aRet:= {}

Begin Sequence

   If ValType(ParamIXB) == "A"
      aCab:= ParamIXB[1]
  aItens:= ParamIXB[2]
  nOpcao:= ParamIXB[3]
   Else
      Break
   EndIf

   //processamento
   //exemplo:
   //AAdd(aCab, {"EJW_XXXX", valor, Nil})

aRet:= {acab, aItens, nOpcao}
End Sequence  
  
Return aRet

Idioma

Português(Brasil)

Versões

Microsiga_Protheus12

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

Retorno

Variáveis

Programa Fonte

EECPS400