Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 10

changes.mady.by.user Veronica Flores Falcon

Gravado em

comparado com

Nova versão 11

changes.mady.by.user Luis Eduardo Enriquez Mata

Gravado em

Chave

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

...

Se activa el Punto de Entrada GVCUSAI0, para permitir en el método commitData() el llenado de campos obligatorios en la tabla AI0 - Complementos de Clientes del submodelo del registro de Cliente.

Informações
titleInformación

El Punto de Entrada GVCUSAI0 recibe como parámetro el objeto oModel, y debe retornar un arreglo con dos posiciones, donde:

Posición 1, corresponde al nombre del submodelo, en este caso debe ser AI0CHILD para la tabla AI0.

Posición 2, arreglo con los campos y valores que deben ser actualizados en en la tabla AI0.

Para más información, puede ver el ejemplo en la sección 04. INFORMACIÓN ADICIONAL.


En la rutina de API de Pedidos de Venta (tgv.salesOrders.data.protheus.tlpp):

...

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]Nil
    Local nOperation := 0
    Local cCliente := ""
    Local cLoca := ""
    oModelSA1 := oModel:GetModel("SA1MASTER")
    cCliente := oModelSA1:GetValue("A1_COD")
    cLoja   cLoca := oModelSA1:GetValue("A1_LOJA")
    nOperation := oModel:getOperation()

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

...