Xailer & OZ Software

Christian, te agradezco tu ayuda.
¿ No seria mucho pedirte si me proporcionas un ejemplo. ?
Gracias.

Aqui esta, esto esta hecho para una epson lx300, enviando los datos
directamente al LPT1
if lMatricial
nHandle:=fopen('LPT1',2)
/// INIT ///
cLinea:=chr(27)+chr(116)+chr(1) + ;
chr(27)+chr(82) +chr(7)
/// DRAFT ///
cLinea+=chr(27)+chr(33) +chr(0) + ;
chr(27)+chr(120)+chr(0) + ;
chr(27)+chr(84)
/// CONDENSADA ///
cLinea+=chr(27)+chr(33)+chr(4)
/// LONGITUD ///
cLinea+=chr(27)+chr(67)+chr(18)
/// 12CPI-CONDENSADA ///
/// chr(27)+chr(33)+chr(4)
for i:=1 to nDesfY+5
cLinea+=pSALTOLIN
next
cLinea+=space(nDesfX+3)
cLinea+=padr(::cAsiento+' '+::cOrigen,56)
cLinea+=padr(::cAsiento+' '+::cOrigen,51)
cLinea+=padr(::cAsiento+' '+::cOrigen,23)
cLinea:=chr(27)+chr(33)+chr(4)+cLinea
fwrite(nHandle,cLinea)
cLinea:=pSALTOLIN+space(nDesfX+3)
cLinea+=padr('--> '+left(::cDestino,18)+if(valtype(::nImporte)=='C' ,
;
' '+::nImporte , ;
' $ '+transf(::nImporte,[email='@E]'@E[/email]
9999.99') ;
),56)
cLinea+=padr('--> '+left(::cDestino,18)+if(valtype(::nImporte)=='C' ,
;
' '+::nImporte , ;
' $ '+transf(::nImporte,[email='@E]'@E[/email]
9999.99') ;
),48)
cLinea+=padr('->' +left(::cDestino,15)+if(valtype(::nImporte)=='C' ,
;
' '+::nImporte , ;
' $'+transf(::nImporte,[email='@E]'@E[/email]
999.99') ;
),26)
cLinea:=chr(27)+chr(33)+chr(4)+cLinea
fwrite(nHandle,cLinea)
cLinea:=pSALTOLIN+pSALTOLIN+pSALTOLIN+space(nDesfX+3)
if empty(::cHora)
/// CONDENSADA-UNDERLINE-DOUBLE STRIKE ///
cLinea+=chr(27)+chr(33)+chr(148)
cLinea+=padr('Abierto - CONFIRMAR',56)
cLinea+=padr('Abierto - CONFIRMAR',51)
cLinea+=padr('Abierto - CONFIRMAR',23)
cLinea+=chr(27)+chr(33) +chr(0) + ;
chr(27)+chr(120)+chr(0) + ;
chr(27)+chr(84)
cLinea+=chr(27)+chr(33) +chr(4)
else
cLinea+=padr(::cHora +' - '+dtoc(::dFechaViaje),56)
cLinea+=padr(::cHora +' - '+dtoc(::dFechaViaje),51)
cLinea+=padr(::cHora +' - '+dtoc(::dFechaViaje),23)
cLinea:=chr(27)+chr(33)+chr(4)+cLinea
endif
fwrite(nHandle,cLinea)
cLinea:=pSALTOLIN+pSALTOLIN+space(nDesfX+3)
cLinea+=padr(::cPasaje+' - '+dtoc(::dFechaCaja),56)
cLinea+=padr(::cPasaje+' - '+dtoc(::dFechaCaja),48)
cLinea+=padr(::cPasaje+' - '+dtoc(::dFechaCaja),26)
cLinea:=chr(27)+chr(33)+chr(4)+cLinea
fwrite(nHandle,cLinea)
cLinea:=pSALTOLIN+space(nDesfX)
cLinea+=padr(::cRazonSoc,56)
cLinea+=padr(::cRazonSoc,51)
cLinea+=padr(::cRazonSoc,26)
cLinea:=chr(27)+chr(33)+chr(4)+cLinea
fwrite(nHandle,cLinea)
cLinea:=pSALTOLIN+space(nDesfX)
cLinea+=padr('Doc. '+::cDocumento,56)
cLinea+=padr('Doc. '+::cDocumento,51)
cLinea+=padr('Doc. '+::cDocumento,26)
cLinea+=chr(12) + chr(27)+chr(67)+chr(72)
fwrite(nHandle,cLinea)
fclose(nHandle)
return(.T.)
endif
"PEDRO DE LEON RODAS" <deleonpe@terra.com.mx> escribió en el mensaje
news:[email=472b683f@ozsrv2.ozlan.local...]472b683f@ozsrv2.ozlan.local...[/email]
> Christian, te agradezco tu ayuda.
>
> ¿ No seria mucho pedirte si me proporcionas un ejemplo. ?
>
> Gracias.
>
>
>
>