<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 </span> </p>
<p> </p>
<p>aTipo:={1,4,5,6}</p>
<p>aSerie:={'A','R'} <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]})</p>
<p> aAdd(aDocElet,{'00000000'}) <span style="color: #999999;">//personalizar el rango de inicio </span></p>
<p> aAdd(aDocElet,{'11111111'})<span style="color: #999999;"> //personalizar el rango de fin </span></p>
<p> </p>
<p> a485DocEle(aDocElet,aTipo[nX],lautoExe)</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>
| 
