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})