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

 

Responder a