NOTA DE CREDITO "A"
m.comando = CHR(147)+CHR(28)+"1"+CHR(28)+m.elnroremito
THISFORM.HASAR1.Enviar(m.comando)
m.comando =
CHR(98)+CHR(28)+razon+CHR(28)+nrocuit+CHR(28)+"I"+CHR(28)+"C"+CHR(28)+dircom
p
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"
IF V_MCLIENTES.POS_IVA = 5
DO FORM CONSUMIDOR_FINAL && Carga de Tipo de Documento, N° y
Domicilio
ELSE
DO FORM COMPROBANTE_NOTACRED
ENDIF
*------------------*
m.comando = CHR(147)+CHR(28)+"1"+CHR(28)+m.elnroremito
THISFORM.HASAR1.Enviar(m.comando)
m.comando =
CHR(98)+CHR(28)+razon+CHR(28)+nrocuit+CHR(28)+"C"+CHR(28)+"2"+CHR(28)+dircom
p
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))
*------------------------------------------------------------------*
* TOMA EL ULTIMO NUMERO DE FACTURA, TICKET, NOTA DE CREDITO A Y B *
*------------------------------------------------------------------*
IF m.icomprobante = 1
m.elultimonrof = THISFORM.HASAR1.ULTIMAFACTURA
m.elultimonrot = THISFORM.HASAR1.ULTIMOTICKET
ENDIF
IF m.icomprobante = 2 AND THISFORM.I_TIPO.VALUE = 1 && NOTA DE CREDITO "A"
*THISFORM.HASAR1.LeerMemoriaDeTrabajo
THISFORM.HASAR1.PedidoDeStatus
m.elultimonrof = INT(VAL(THISFORM.HASAR1.Respuesta(8)))
ENDIF
IF m.icomprobante = 2 AND THISFORM.I_TIPO.VALUE = 2 && NOTA DE CREDITO "B"
*THISFORM.HASAR1.LeerMemoriaDeTrabajo
THISFORM.HASAR1.PedidoDeStatus
m.elultimonrot = INT(VAL(THISFORM.HASAR1.Respuesta(7)))
ENDIF
Norberto Alvarez
De: GUFA@mug.org.ar [mailto:g...@mug.org.ar] En nombre de Walter Comito
Enviado el: lunes, 26 de julio de 2010 04:18 p.m.
Para: GUFA List Member
Asunto: [GUFA] CONTROLADORES FISACALES.
Amigos alguien tiene las sentencias para ejecutar una nota de credito en los
conbtroladores epson tmu220 af y hasard 715 f
Walter Cómito
Analista de Sistemas
MP 0397 C.P.C.I.P.C.
<mailto:walter.com...@gmail.com> walter.com...@gmail.com -
<mailto:wcom...@hotmail.com> wcom...@hotmail.com
' +54 351 494.4667 / 153.292.707
þ <http://www.softram.com.ar/> www.softram.com.ar
Q Si no es necesario, no imprima este correo. Todos somos responsables por
el cuidado del medio ambiente.
NOTA DE CONFIDENCIALIDAD
Este mensaje (y sus anexos) es confidencial y puede contener información de
propiedad
exclusiva de Walter Cómito (SRS Sistemas). Si usted ha recibido este mensaje
por error,
por favor comuníquelo inmediatamente a walter.comito
<mailto:walter.com...@gmail.com> @gmail.com y tenga la amabilidad
de eliminarlo; no deberá copiar el mensaje ni divulgar su contenido a
ninguna persona.
Muchas Gracias.
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas
de virus 5315 (20100726) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
