Árvore de páginas

01. C121LCXN - Carregar dados adicionais nas planilhas da medição(CXN)


Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:Gestão de Contratos
Função:CNTA121 - Medições
Ponto de Entrada:C121LCXN

02. DETALHES


Descrição:

Possibilita carregar dados adicionais à CXN(Planilhas da Medição) durante sua carga

Eventos:

Executado uma vez para cada planilha do contrato(CNA) passível de medição

Programa Fonte:

CNTA120.PRW

Função:

CN120Compet

Parâmetros:
PosiçãoTipoDescrição
PARAMIXB[1]Objetoinstância de FwFormGrid referente ao submodelo da tabela CXN
PARAMIXB[2]Caractere

alias da consulta SQL realizada pelo sistema

Retorno:
ValorTipoDescrição
Nilnulo

Não é necessário nenhum retorno



 

Exemplo
#include "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"

/*/{Protheus.doc} C121LCXN
    Possibilita carregar dados adicionais à CXN(Planilhas da Medição) durante sua carga
@since 04/10/2022
@param oModelCXN	, objeto    , instância de FwFormGrid do submodelo CXN
@param cAliasQry	, caractere , alias com o resultado da query
@return Nil
/*/User Function C121LCXN()
    Local oModelCXN := PARAMIXB[1]
    Local cAliasQry := PARAMIXB[2]

	//Nesse exemplo se pressupõe que usuário criou campos customizados no dicionário(SX3), porém seria possível adicionar campos virtuais utilizando os p.e C121MCPO e C121VCPO
    if oModelCXN:HasField("CXN_CPOUSR") .And. (cAliasQry)->(FieldPos("CNA_CPOUSR") > 0)        
        oModelCXN:LoadValue("CXN_CPOUSR", (cAliasQry)->CNA_CPOUSR)
    endif
Return Nil