| 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 |
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).
O PE recebe 2 parâmetros.
| Campo | Valor |
|---|---|
| Paramixb[1] | Modelo do TECA930A |
| Paramixb[2] | Modelo do TECA930 |
O modelo do TECA930A é composto pelos seguintes conteúdos:
| Campo | Valor |
|---|---|
CNTMASTER | Cabeçalho |
FILMASTER | Filtros |
MEDDETAIL | Grid da Medição |
TOTMASTER | Total |
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
Não há.