Te paso las sentencias que utilizo para imprimir Notas de Créditos en la
Hasar (VB6):
Inicializo (siempre tengo que enviar contra que comprobante hago la
NC
slComan = Chr$(147) & Chr$(28) & "1" & Chr$(28) & 0001-00002382
HasarFP.Enviar slComan
Encabezado
slComan = Chr$(98)
slComan = slComan & Chr$(28) & Right("0000" & objConec.strFactura.lCodCli,
4) & " - " & objConec.strFactura.sNombre
If vlTipoC = NOTA_CREDITO_B Then
slComan = slComan & Chr$(28) & IIf(Val(objConec.strFactura.sN_CUIT) = 0,
"9", Val(objConec.strFactura.sN_CUIT))
slComan = slComan & Chr$(28) & "C"
slComan = slComan & Chr$(28) & "2"
slComan = slComan & Chr$(28) & " "
Else
slComan = slComan & Chr$(28) & objConec.strFactura.sN_CUIT
slComan = slComan & Chr$(28) & objConec.strFactura.sTipIVA
slComan = slComan & Chr$(28) & "C"
slComan = slComan & Chr$(28) & objConec.strFactura.sDomici & " "
End If
HasarFP.Enviar slComan
HasarFP.Encabezado(8) = ""
HasarFP.Encabezado(9) = ""
HasarFP.Encabezado(10) = ""
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 "ND-A"
slComan = Chr$(64) & Chr$(28) & "D" & Chr$(28) & "T"
Case "ND-B"
slComan = Chr$(64) & Chr$(28) & "E" & Chr$(28) & "T"
Case "RC-X"
slComan = Chr$(128) & Chr$(28) & "x" & Chr$(28) & "T" & Chr$(28)
& Right("0000" & Trim(Str(strFactura.iPrefij)), 4) & "-" & Right("00000000"
& Trim(Str(strFactura.dNroCom)), 8)
End Select
HasarFP.Enviar slComan
Detalle de la NC
If strFactura.sLetCmp = "A" Then
HasarFP.ImprimirItem Left(slDet, 20), Round(dlPre, 3), dlCnt, dlAlc, dlImp
Else
HasarFP.ImprimirItem Left(slDet, 20), Round(dlPre * (1 + (dlAlc / 100)), 3),
dlCnt, dlAlc, dlImp
End If
HasarFP.Subtotal True
Cierro el comprobante
HasarFP.Enviar Chr$(129)
Finalizo
HasarFP.Finalizar
_____
From: [email protected] [mailto:[email protected]] On Behalf Of Ricardo
Macrino
Sent: Lunes, 7 de Septiembre de 2009 13:54
To: vbusers List Member
Subject: [vbusers] OT HASAR Nota Credito
Hola lista,
haciendo un sistema de Facturacion con C# (OCX de Hasar version 051122)
en VS2008 , (impresora MODELO_P320)
ya casi listo pero me encontre con Error al tratar de hacer Notas de Credito
no me aparece el metodo "DocumentoDeReferencia" marcado en el manual
alguna idea de como solucionar esto?
desde ya gracias y perdon por el OT
--
Ricardo A. Macrino
Sistemas Microsoft
Puntonet c#
Capital Federal - Rep. Argentina
