<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'}</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'})</p>
<p> aAdd(aDocElet,{'11111111'})</p>
<p> </p>
<p> a485DocEle(aDocElet,aTipo[nX],lautoExe)</p>
<p> Next nY</p>
<p> </p>
<p> Next nX</p>
<p> </p>
<p>return</p>
<p> </p> |