FoxPro/Visual FoxPro - Funcionamiento de las Impresoras Fiscales

Funcionamiento de las Impresoras Fiscales

Publicado por many (127 intervenciones) el 05/05/2015 01:40:19

Saludo a todos lo que integran este foro.

Tengo un duda con las impresoras fiscales, de acuerdo a lo que estuve leyendo en la web creo que a esta impresora solo se le envían los datos de la factura y luego existen procedimientos para sacar los informes que exige la DGII.

A pesar que esta impresora guarda información de cada factura que imprime, yo pensaba que necesariamente el programa debía guardar en tablas información con formato que le permitiera manipularla para sacar los informes que exige la DGII. Se que para historial y uso interno se de deben guardar los datos que puedan generar información a tiempo pero quiero saber si la impresora es capaz de hacerlo.

Agradezco todas la ayuda que puedan dejar sobre este teme,

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 34

Val: 28

Funcionamiento de las Impresoras Fiscales

Publicado por Anabella (33 intervenciones) el 07/05/2015 15:31:59

Hola!!! La impresora fiscal, al finalizar el día debe cerrar sesión haciendo un reporte Z, alli sale el resumen de lo facturado en el día, si vos queres saber lo vendido, debes hacer una tabla aparte y paralela a la información que le pasas a la registradora fiscal y controlar tus ventas.
No se que estas trabajando, ni que registradora estas usando, si queres dame mas datos, yo algo hice y te puedo ayudar.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Funcionamiento de las Impresoras Fiscales

Publicado por many (127 intervenciones) el 08/05/2015 05:20:57

Que tal Anabella y a todos,

De verdad que agradezco infinitamente tu respuesta.

Tengo un sistema de facturación en VISUAL FOXPRO 9, ahora debo cambiar la impresora Epson tm-u220 por una impresora fiscal y quiero saber lo siguiente:

¿Que debo instalar relacionado con la impresora fiscal para comunicarla con mi sistema?
¿Como hago para poder enviar los datos de la factura al controlador fiscal de impresora?

Estuve viendo en internet comando para abrir, cerrar, errores etc sobre la impresora y no parece difícil.

Dame un luz sobre esto por favor, Anabella.

De Manuel Medina J.
Un saludo con mucho cariño.

Valora esta respuesta

Comentar

Pos: 2

Val: 1.011

Funcionamiento de las Impresoras Fiscales

Publicado por Fidel José (558 intervenciones) el 09/05/2015 18:43:38

http://www.impresoras-fiscales.com.ar/

Valora esta respuesta

Comentar

Funcionamiento de las Impresoras Fiscales

Publicado por andy (56 intervenciones) el 14/05/2015 00:23:39

Para hacer funcionar una impresora fiscal debes instalar la OCX provista GRATUITAMENTE por el fabricante de la impresora fiscal.
Deberás crear un rutina que permita enviar los datos de acuerdo a cada impresora. Si bien son muy parecidas en cuanto a su logica, cada impresora es distinta. Lo mismo para evaluar la respuesta del controlador fiscal.

Valora esta respuesta

Comentar

Funcionamiento de las Impresoras Fiscales

Publicado por andy (56 intervenciones) el 22/09/2015 11:03:59

Si todavía necesitas ayuda puedes contactarme por Facebook
https://www.facebook.com/andres.squire

Valora esta respuesta

Comentar

Funcionamiento de las Impresoras Fiscales

Publicado por RUBERT (1 intervención) el 03/10/2017 12:02:29

buenas yo tengo un sistema en foxpro para dos futina funciona bien el detalle es con la rutina fiscal a veces me imprime los item completos
a veces deja uno por fuera esta es la rutina si alguien puede ayudar a mejorarla se lo agracesco

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

*** encabezado de la factura ******

PP=fopen( "lpt2",12)

comando =  "i01" + " Cliente: " + left(mdenom ,30)

lrc_comando= lrc( comando + chr(3))

tramaCompleta= chr(2) + comando + chr(3) + chr(lrc_comando)

xxx= FWRITE(PP, tramaCompleta )

pp=FCLOSE(PP)

PP=fopen( "LPT2",12)

comando =  "i02" + "C.I./R.I.F. : " + left(mrif,18)

lrc_comando= lrc( comando + chr(3))

tramaCompleta= chr(2) + comando + chr(3) + chr(lrc_comando)

xxx=FWRITE(PP, tramaCompleta )

pp=FCLOSE(PP)

PP=fopen( "LPT2",12)

comando =  "i03" + "Direccion: " + left(mdirec,18)

lrc_comando= lrc( comando + chr(3))

tramaCompleta= chr(2) + comando + chr(3) + chr(lrc_comando)

xxx=FWRITE(PP, tramaCompleta )

pp=FCLOSE(PP)

******* imprime item factura ****

select 4

go botto

mrecno=recno()

go top

if mrecno>1

 =inkey(.5)

else

 =inkey(1)

endif

PP=fopen( "LPT2",12)

xtasa=mtasa

DO WHILE .NOT. EOF()

 MPRECIO=pvp

 mcant=CANTIDAD

 mdescri=DESCRIP

 if isv="N"

  mtasa=" "

 else

  mtasa=xtasa

 endif

 *************** item factura********

 ** " " EXCENTO

 ** "!" TASA A

 ** '"' TASA B

 ** "#" TASA C

 cara=CHR(34)

 comando= mtasa+right("0000000000"+alltrim(str(mprecio*100)),10) ;

+ right("00000000"+alltrim(str(mcant*1000)),8) ;

+ left(mdescri+space(40),40)

 lrc_comando= lrc( comando + chr(3))

 tramaCompleta= chr(2) + comando + chr(3) + chr(lrc_comando )

 xxx= FWRITE(PP, tramaCompleta )

 pp=FCLOSE(PP)

 if mrecno>1

  =inkey(.5)

 else

  =inkey(1)

 endif

 PP=fopen( "LPT2",12)

 SKIP

ENDDO

**** IMPRIME SUB TOTAL ****

pp=FCLOSE(PP)

PP=fopen( "LPT2",12)

comando =  "3"

lrc_comando= lrc( comando + chr(3))

tramaCompleta= chr(2) + comando + chr(3) + chr(lrc_comando)

xxx=FWRITE(PP, tramaCompleta )

pp=FCLOSE(PP)

****DESCUENTO

*PP=fopen( "LPT2",12)

*comando="p"+"-"+"0300"

*lrc_comando= lrc( comando + chr(3))

*tramaCompleta= chr(2) + comando + chr(3) + chr(lrc_comando)

*xxx= FWRITE(PP, tramaCompleta )

*pp=FCLOSE(PP)

*=inkey(1)

***** IMPRIME TIPO DE PAGO ******

PP=fopen( "LPT2",12)

comando="1"+right("0000"+alltrim(str(fp)),2)

lrc_comando= lrc( comando + chr(3))

tramaCompleta= chr(2) + comando + chr(3) + chr(lrc_comando)

xxx= FWRITE(PP, tramaCompleta )

pp=FCLOSE(PP)

PP=fopen( "LPT2",12)

**** CIERRA LA FACTURA  ******

comando =  "101"

lrc_comando= lrc( comando + chr(3))

tramaCompleta= chr(2) + comando + chr(3) + chr(lrc_comando)

xxx=FWRITE(PP, tramaCompleta )

pp=FCLOSE(PP)

*////////////////////// FIN

FUNCTION Xd0bit

PARAMETER Bitno, A

PRIVATE Remainder, I, Highord

Highord = INT(IIF(A>1,LOG(A)*1.442695041,0))

IF Bitno>Highord

RETURN .F.

ENDIF

FOR I = 0 TO Highord

IF I=Bitno

RETURN IIF(IIF(A=1,1,MOD(A,2))=1,.T.,.F.)

ENDIF

IF A=0

RETURN .F.

ENDIF

A = INT(A/2)

NEXT

return a

FUNCTION BITXOR

PARAMETER A, B

IF INT(A)#A .OR. INT(B)#B

?? CHR(7)

WAIT WINDOW "XOR error: arguments must be integers!"

RETURN -1

ENDIF

PRIVATE Retval, Highord, I

Retval = 0

Highord = ;

MAX(INT(IIF(A>1,LOG(A)*1.442695041,0)),INT(IIF(B>1,LOG(B)*1.442695041,0)))

FOR I = 0 TO Highord

Retval = Retval+IIF(Xd0bit(I,A)#Xd0bit(I,B),2**I,0)

NEXT

RETURN Retval

*/*/*/*/*/*/*/* FUNCIONES LISTA PARA USAR

FUNCTION LRC

parameter cadena

a=left( cadena,1)

a_asc= asc(a)

for t= 2 to len(cadena)

	b= substr( cadena,t,1)

	b_asc= asc(b)

	acumulado= bitxor( a_asc, b_asc )

	a_asc= acumulado

endfor

return acumulado

Valora esta respuesta

Comentar

Detectar modo debug

convertir un binario a decimal y un decimal a binario