MsGetDAuto

A função MsGetDAuto tem como objetivo simular o modelo de interface da GetDados, utilizado nos modelos 2 e 3. Ela é totalmente compativel com a função GetDados sendo a sua correspondente quando utiliza-se o conceito de rotina automatica.

MSAUTOPR.PRW

MsGetDAuto ( aField [ uLinhaOk ] [ uTudoOk ] [ aEnchAuto ] [ nOpc ] [ lClear ] ) --> lVALIDO

lVALIDO(logico)
• O retorno desta função informa se a simulação/validação da interface GetDados foi realizada com sucesso.

Parâmetros

aField

Os dados devem ser enviados na seguinte estrutura:

[nX][1] Nome do campo
[nX][2] Conteudo do campo
[nX][3] Nil

Exemplo:

aadd(aField,{"A1_NOME","Microsiga Software SA",Nil})

Quando existir a necessidade de alterar um item especifico da Getdados, existem dois campos que podem ser utilizados, os campos são: LINPOS e AUTDELETA. O primeiro deve ser utilizado para localizar o item do aCols que sofrerá alteração, o segundo instruí a rotina automática para deletar a linha. Caso não seja utilizado o LINPOS esta função irá reconstruir todo o aCols.
Exemplo:

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Teste de alteracao |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aCabec := {}
aItens := {}
aadd(aCabec,{"C5_NUM",cDoc,Nil})
For nX := 1 To 30
aLinha := {}
If Int(nX/2) == nX/2
aadd(aLinha,{"LINPOS","C6_ITEM",StrZero(nX,2)})
aadd(aLinha,{"AUTDELETA","S",Nil})
aadd(aItens,aLinha)
EndIf
Next nX
ConOut(PadC("Teste de alteracao",80))
ConOut("Inicio: "+Time())
MATA410(aCabec,aItens,4)
ConOut("Fim : "+Time())
ConOut(Repl("-",80))

aEnchAuto

Os dados devem ser enviados na seguinte estrutura:

[nX][1] Nome do campo
[nX][2] Conteudo do campo
[nX][3] Nil

Exemplo:

aadd(aEnchAuto,{"A1_NOME","Microsiga Software SA",Nil})