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