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’, ‘D MG 01’) Abriendo el entorno en rutinas automáticas
aTipo:={1,4,5,6}
aSerie:={‘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
return |