Utilizo el OCX (ultima versión) 051122
&& NOTA DE CREDITO "A"
m.comando = CHR(147)+CHR(28)+"1"+CHR(28)+m.elnrodefactura && en esta
variable pones el N° de Factura correspondiente a la Nota de Credito
THISFORM.HASAR1.Enviar(m.comando)
m.comando =
CHR(98)+CHR(28)+razon+CHR(28)+nrocuit+CHR(28)+"I"+CHR(28)+"C"+CHR(28)+dircomp
THISFORM.HASAR1.Enviar(m.comando)
m.comando = CHR(128)+CHR(28)+"R"+CHR(28)+"T"
THISFORM.HASAR1.Enviar(m.comando)
*---*
SELECT C_FACTURAS
SCAN
fdes = alltrim(C_FACTURAS.DES)
fcan = C_FACTURAS.CAN
fpun = C_FACTURAS.PDT
fiva = 21
THISFORM.HASAR1.ImprimirItem(fdes, fcan, fpun, fiva, 0)
ENDSCAN
THISFORM.HASAR1.Enviar(CHR(129))
&& NOTA DE CREDITO "B"
*--*
m.comando = CHR(147)+CHR(28)+"1"+CHR(28)+m.elnrodefactura
THISFORM.HASAR1.Enviar(m.comando)
m.comando =
CHR(98)+CHR(28)+razon+CHR(28)+nrocuit+CHR(28)+"C"+CHR(28)+"2"+CHR(28)+dircomp
THISFORM.HASAR1.Enviar(m.comando)
m.comando = CHR(128)+CHR(28)+"S"+CHR(28)+"T"
THISFORM.HASAR1.Enviar(m.comando)
*---*
SELECT C_FACTURAS
SCAN
fdes = alltrim(C_FACTURAS.DES)
fcan = C_FACTURAS.CAN
fpun = C_FACTURAS.PDT
fiva = 21
THISFORM.HASAR1.ImprimirItem(fdes, fcan, fpun, fiva, 0)
ENDSCAN
THISFORM.HASAR1.Enviar(CHR(129))
Norberto Alvarez
Socio # 1882
De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre de Sergio .
Enviado el: jueves, 5 de enero de 2017 12:14
Para: GUFA List Member
Asunto: [GUFA] HASAR 715 NC
Hola Gente, Feliz Año, estoy lidiando para imprimir NC en una Tickeadora 715,
hace Ticket Factura lo mas bien, pero con las NC no la pego ni de carambola.
Alguno ya soluciónó este tema?
Saludos
Sergio