Listeros,
Estoy configurando la rutina de impresión de comprobantes para imprimir en
una HASAR 715.
Estoy imprimiendo correctamente Fact. A, Fact. B, N. Créd. A, N.Créd. B., N.
Déb. A, N. Déb B.
Ahora tengo que imprimir un Recibo X y no le encuentro la vuelta.
Según HASAR, tengo que inicializar de la siguiente manera:
a)
Select Case vlTipoC
Case "NC-A", "NC-B"
slStrin = sgStrAnt
Case "RC-X"
slStrin = Right("0000" & Trim(Str(obj.strFactura.iPrefij)), 4) &
"-" & Right("00000000" & Trim(Str(obj.strFactura.dNroCom)), 8)
Case Else
Exit Function
End Select
slComan = Chr$(147) & Chr$(28) & "1" & Chr$(28) & slStrin
HasarFP.Enviar slComan
b) Select Case vlTipoC
Case "NC-A"
slComan = Chr$(128) & Chr$(28) & "R" & Chr$(28) & "T"
Case "NC-B"
slComan = Chr$(128) & Chr$(28) & "S" & Chr$(28) & "T"
Case "RC-X"
slComan = Chr$(128) & Chr$(28) & "x" & Chr$(28) & "T"
Case Else
End Select
HasarFP.Enviar slComan
Para NC-A, y NC-B, funciona perfecto, para RC-X no funciona.
Alguien me puede ayudar ?
Gracias
Diego A. Montero
America (Bs.As.)
