Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:Prestadores de Serviço
Função:Apuração Ágil
País:Brasil
Ticket:Não há.
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-10833


02. SITUAÇÃO/REQUISITO

Ao realizar a gravação é necessário modificar as informações referente ao campo criado no cabeçalho (DT PE At930ACa Criação de campos da apuração ágil).

03. SOLUÇÃO

O PE recebe 2 parâmetros.

CampoValor
Paramixb[1]Modelo do TECA930A
Paramixb[2]Modelo do TECA930


O modelo do TECA930A é composto pelos seguintes conteúdos:

CampoValor

CNTMASTER

Cabeçalho

FILMASTER

Filtros

MEDDETAIL

Grid da Medição

TOTMASTER

Total
At930ACa
User Function At930ACm()
Local oMd930A   := Paramixb[1]
Local oMdlCNT   := oMd930A:GetModel("CNTMASTER")
Local oMd930    := Paramixb[2]
Local oMdlTWB   := oMd930:GetModel("TWBDETAIL")
Local lRet      := .T.
Local nX

For nX := 1 To oMdlTWB:Length()
    oMdlTWB:GoLine(nX)
    lRet := lRet .AND. oMdlTWB:SetValue("TWB_SINDIC", oMdlCNT:GetValue("CNT_SINDIC"))
Next nX

Return lRet


04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS