<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') <div style="border: 1px solid black;">
<div style="margin-left: 10px;">
<p> </p>
<p>user function WFATELEC()</p>
<p> </p>
<p><span style="color: #999999;">/* TIPO</span></p>
<p><span style="color: #999999;">1= Factura.</span></p>
<p><span style="color: #999999;">4= Nota de crédito cliente.</span></p>
<p><span style="color: #999999;">5= Nota Debito cliente.</span></p>
<p><span style="color: #999999;">6=Guía de despacho.</span></p>
<p><span style="color: #999999;">*/</span></p>
<p> </p>
<p>Local nX:=1</p>
<p>Local nY:=1</p>
<p> </p>
<p>RpcSetEnv('T1', 'D MG 01') <span style="color: #999999;">// Abriendo el entorno en rutinas automáticas <br/>
aTipoautomáticas </span> </p>
<p> </p>
<p>aTipo:={1,4,5,6}<br</>p>
aSerie<p>aSerie:={'A','R'}<br/>
lautoExe := .T.<br/>
For nX:=1 To Len(aTipo)<br/>
For nY:=1 To Len(aSerie)<br/>
aDocElet := {}<br/>
aAdd <span style="color: #999999;">//personalizar las series. </span></p>
<p>lautoExe := .T.</p>
<p> </p>
<p> For nX:=1 To Len(aTipo)</p>
<p> </p>
<p> For nY:=1 To Len(aSerie)</p>
<p> aDocElet := {}</p>
<p> aAdd(aDocElet,{aSerie[nY]})<br</>
aAddp>
<p> aAdd(aDocElet,{'00000000'})<br/>
aAdd <span style="color: #999999;">//personalizar el rango de inicio </span></p>
<p> aAdd(aDocElet,{'11111111'})<br/>
a485DocEle<span style="color: #999999;"> //personalizar el rango de fin </span></p>
<p> </p>
<p> a485DocEle(aDocElet,aTipo[nX],lautoExe)<br/>
Next nY<br/>
Next nX<br/>
return</code></p>
<p> Next nY <span style="color: #999999;">//fin "for" serie. </span></p>
<p> </p>
<p> Next nX <span style="color: #999999;">//fin "for" tipo. </span></p>
<p> </p>
<p>return nil</p>
<p> </p>
</div>
</div>
| 
