<code>
<br/><br/><br/>
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') <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</>p>
lautoExe <p>lautoExe := .T.<br</>p>
<br<p> </>
<p>
For nX:=1 To Lenp>
<p> For nX:=1 To Len(aTipo)<br</>p>
For nY:=1 To Len<p> </p>
<p> For nY:=1 To Len(aSerie)<br</>
aDocElet p>
<p> aDocElet := {}<br</>
aAddp>
<p> aAdd(aDocElet,{aSerie[nY]})<br</>
aAddp>
<p> aAdd(aDocElet,{'00000000'})<br</>
aAddp>
<p> aAdd(aDocElet,{'11111111'})<br</>p>
a485DocEle<p> </p>
<p> a485DocEle(aDocElet,aTipo[nX],lautoExe)<br</>
Next nY<br/>
Next nX<br/><br/></p>
return</code>p>
<p> Next nY</p>
<p> </p>
<p> Next nX</p>
<p> </p>
<p>return</p>
<p> </p> | 