user<code>user function WFATELEC()
/* TIPO
1= Factura.
4= Nota de crédito cliente.
5= Nota Debito cliente.
6=Guía de despacho.
*/
Local nX:=1
Local nY:=1
RpcSetEnv(‘T1’'T1', ‘D'D MG 01’01') // Abriendo el entorno en rutinas automáticas
aTipo:={1,4,5,6}
aSerie:={‘A’,‘R’'A','R'}
lautoExe := .T.
For nX:=1 To Len(aTipo)
For nY:=1 To Len(aSerie)
aDocElet := {}
aAdd(aDocElet,{aSerie[nY]})
aAdd(aDocElet,{'00000000'})
aAdd(aDocElet,{'11111111'})
a485DocEle(aDocElet,aTipo[nX],lautoExe)
Next nY
Next nX
returnreturn</code> |