Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
titleGVCUSAI0
#INCLUDE "PROTHEUS.CH"
 
User Function GVCUSAI0() as array
    Local cModel := "AI0CHILD"
    Local aModel := {}
    Local cCampo := "AI0_MPAGO"
    Local cVal   := "99"
    Local oModel := PARAMIXB[1]
    Local oModelSA1 := PARAMIXB[2]
    Local nOperation := 0
    Local cCliente := ""
    Local cLoca := ""
    
    cCliente := oModelSA1:GetValue("A1_COD")
    cLoacLoja    j:= oModelSA1:GetValue("A1_LOJA")
    nOperation := oModel:getOperation()

    If nOperation == 4 //Update
        aAdd(aModel, {cCampo, cVal})
    EndIf
Return {cModel,aModel}

...