| Produto: |
| ||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Linha de Produto: |
| ||||||||||||||||
| Segmento: |
| ||||||||||||||||
| 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.
...
O modelo do TECA930A é composto pelos seguintes conteúdos:
| Campo | Valor |
|---|---|
CNTMASTER | Cabeçalho |
FILMASTER | Filtros |
MEDDETAIL | Grid da Medição |
TOTMASTER | Total |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
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á.
...
