Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL
Fujitsu COBOL Sub-Foro dedicado a Compiladores e IDE-s de Fujitsu.
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Compilador] Problemas con los *.SE/*.FD Socavi PowerCOBOL (ActiveX, v4 - v11) 8 23 de agosto de 2021 22:47
[Duda] Impresoras Fiscales de 2da Generacion Alejo Gonzalez AcuCobol 0 29 de junio de 2020 02:38
[Duda] Impresoras fiscales de 2da generacion Alejo Gonzalez AcuCobol 0 27 de agosto de 2019 01:12
[Compilador] Impresoras Fiscales Hasar Alejo Gonzalez AcuCobol 5 20 de julio de 2018 03:29
[Compilador] Problemas con el DEBUG Josber PowerCOBOL (ActiveX, v4 - v11) 3 12 de abril de 2015 21:16

Respuesta
 
Herramientas

  #61
Antiguo 26 de marzo de 2025, 22:25
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

@Ale, podrías decirme en qué lenguaje son los ejemplos qué pones? Porque no es ni C ni C++, tiene pinta de Visual Basic



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
  #62
Antiguo 27 de marzo de 2025, 20:36
Ale
Forero Junior
Última Actividad 23.06.2026 00:14
Posts Posts: 43
Likes enviados Enviados: 19
Likes recibidos Recibidos: 2

Código VB:
  1. Drv.IFOpBegin("ItemVenta")
  2.         Drv.IFOpParamSet("Descripcion", "Item de prueba")
  3.         Drv.IFOpParamFloatSet("Precio", 1.2345)
  4.         Drv.IFOpParamFloatSet("IVA", 21.0)
  5.         Drv.IFOpParamSet("CodigoProducto", "7791234567898")
  6.         If (Drv.IFOpSend(1) = 0) Then
  7.             CmdError("ItemVenta")
  8.             Return
  9.         End If
  10.  
  11.         Drv.IFOpBegin("Cerrar")
  12.         If (Drv.IFOpSend(1) = 0) Then

hay un par de archivos con ejemplos en distintos lenguajes. la carpeta dice (VBnet).
Ale is offline   Responder Con Cita
  #63
Antiguo 27 de marzo de 2025, 21:39
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Citación del post de Ale Ver Mensaje
VBnet
Acabaramos... Claro, ya decía yo. Es Visual Basic .NET que es la respuesta de Microsoft a Java... Por eso no funcionaba lo que decía, no funciona igual que C o C++.

Hay alguna subcarpeta que diga C o C++ o VB o algún archivo con extensiones similares?

La librería a la que llamas no está hecha en VB.NET porque no se puede llamar "código gestionado" (managed code) tal cual, sin pasar por el Run-Time .NET (equivalente a la JVM). Con lo cual, debe haber ejemplos para lenguajes de compilación nativa, como es el caso de C (unmanaged code).



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
  #64
Antiguo 27 de marzo de 2025, 22:34
Ale
Forero Junior
Última Actividad 23.06.2026 00:14
Posts Posts: 43
Likes enviados Enviados: 19
Likes recibidos Recibidos: 2
Predeterminado controlador fiscal
0 Inactivo Inactivo

Código CPP:
  1. printf("EstablecerEncabezadoCola\n");
  2.         IFOpBegin("EstablecerEncabezadoCola");
  3.         IFOpParamIntSet("Numero", 19);
  4.         IFOpParamSet("Texto", "Cola libre 9");
  5.         cmd_send();
Este ejemplo esta e la carpeta lenguaje (C). Esto es lo que no logro hacer funcionar, enviar al impresor una leyenda. Entre los valores de 11 a 20 van los textos cola. Todas las demás operaciones, peleándola y gracias a todos uds, pude hacer funcionar. solo me falta esto.
Si precisan algún archivo de esas lineas de programación me avisan
Ale is offline   Responder Con Cita
  #65
Antiguo 27 de marzo de 2025, 23:28
fastpho
El Foro es mi casa
Innovación: Por aportar innovaciones - Issue reason: SQLite + OO Cobol class Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Issue reason: Acceso a datos Cobol vía web 
Última Actividad 21.08.2026 18:08
Posts Posts: 365
Likes enviados Enviados: 252
Likes recibidos Recibidos: 243

@Ale te paso ejemplo...
Código COBOL:
  1. WORKING-STORAGE SECTION.
  2.  01 TITULO-ECabCola  PIC X(24) VALUE "EstablecerEncabezadoCola".
  3.  01 TITULO-ECNumero  PIC X(6)  VALUE "Numero".
  4.  01 TITULO-ECTexto   PIC X(5)  VALUE "Texto".
  5.  01 Valor-ECNumero   PIC S9(9) COMP-5.
  6.  01 Valor-ECTexto    PIC X(50).
  7.  01 HEADER-11.
  8.     03 H-CAJERO  PIC X(7) VALUE "CAJERO:".
  9.     03 H-CODIGO  PIC 9(2).
  10.     03 FILLER    PIC X VALUE SPACES.
  11.     03 H-NOMBRE  PIC X(19).
  12.     03 H-CAJA    PIC X(7) VALUE "  CAJA:".
  13.     03 H-NUMERO  PIC 9(4).
  14.  PROCEDURE       DIVISION.
  15.  
  16.  
  17.      MOVE spaces        TO FUNC-SAM4-LIB.
  18.      MOVE "IFOpBegin"   TO FUNC-SAM4-LIB.
  19.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY CONTENT TITULO-ECabCola returning Respuesta-Impresor.
  20.      DISPLAY "TITULO-ECabCola " , Respuesta-Impresor.
  21.  
  22. ************    
  23. *Texto Cola
  24.  
  25.      MOVE spaces           TO FUNC-SAM4-LIB.
  26.      MOVE "IFOpParamSet"   TO FUNC-SAM4-LIB.
  27. *     MOVE SPACES  TO Valor-ECTexto.
  28.      MOVE 2 TO H-CODIGO.
  29.      MOVE "Osvaldo Linea 11 " TO H-NOMBRE.
  30.      MOVE 3 TO H-NUMERO.
  31.      MOVE HEADER-11        TO Valor-ECTexto.
  32.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE TITULO-ECTexto
  33.                                            BY REFERENCE     Valor-ECTexto
  34.                                            returning Respuesta-Impresor.
  35.      DISPLAY "TITULO-ECTexto " , Respuesta-Impresor.
  36.  
  37. *****************
  38. *Numero Cola
  39.      MOVE spaces              TO FUNC-SAM4-LIB.
  40.      MOVE "IFOpParamIntSet"   TO FUNC-SAM4-LIB.
  41.      MOVE 11                  TO Valor-ECNumero.
  42.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE TITULO-ECNumero
  43.                                            BY VALUE   Valor-ECNumero
  44.                                            returning Respuesta-Impresor.
  45.      DISPLAY "titulo-ECNumero " , Respuesta-Impresor.
  46.                                          
  47.  
  48.              
  49.  
  50. *--------------
  51. * Send
  52.      MOVE spaces          TO FUNC-SAM4-LIB.
  53.      MOVE "IFOpSend"   TO FUNC-SAM4-LIB.
  54.      MOVE 1            TO sWait.
  55.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY VALUE sWait returning Respuesta-Impresor.
  56.      DISPLAY "SEND TITULO-ECabCola " , Respuesta-Impresor.

Saludos ....
fastpho is offline   Responder Con Cita
  #66
Antiguo 28 de marzo de 2025, 01:35
Ale
Forero Junior
Última Actividad 23.06.2026 00:14
Posts Posts: 43
Likes enviados Enviados: 19
Likes recibidos Recibidos: 2
Predeterminado impresoras fiscales
0 Inactivo Inactivo

muchas gracias. Fasthpo

Algo parecido estaba probando ayer. y probé con tu ejemplo.
Yo lo estoy enviando, luego de comando Pago y antes de Cerrar el documento.
Cuando envío numero de cola, no cancela comprobante pero no imprime nada.
Enviándolo como (IntSet) me tira error. respuesta impresor.
si lo envío como ParamSet no tira error respuesta-impresor, pero tampoco imprime nada.



Código COBOL:
  1.   MOVE "IFOpBegin" to FUNCION3.      
  2.       CALL FUNCION3 WITH STDCALL USING BY CONTENT PARAMETRO-ENCABEZADO RETURNING RESPUESTA-IMPRESOR.
  3.  
  4. *** numero-cola.
  5.      MOVE spaces              TO FUNCION3.
  6. *     MOVE "IFOpParamIntSet"   TO FUNCION3.
  7.      MOVE "IFOpParamSet"TO FUNCION3.
  8.      MOVE 11 TO Valor-ECNumero.
  9.      CALL FUNCION3 WITH STDCALL USING BY CONTENT TITULO-ECNumero
  10.                                            BY VALUE   Valor-ECNumero
  11.                                            returning Respuesta-Impresor.
  12.      if respuesta-impresor = 0 move "error-cola" to pow-text of error-cod-cola.
  13. **... texto-cola      
  14.      MOVE spaces           TO FUNCION.
  15.      MOVE "IFOpParamSet"   TO FUNCION.
  16. *     MOVE SPACES  TO Valor-ECTexto.
  17.      MOVE 2 TO H-CODIGO.
  18.      MOVE "Osvaldo Linea .11 " TO H-NOMBRE.
  19.      MOVE 3 TO H-NUMERO.
  20.      MOVE HEADER-11  TO Valor-ECTexto.
  21.      CALL FUNCION WITH STDCALL USING BY REFERENCE TITULO-ECTexto
  22.                                            BY REFERENCE Valor-ECTexto
  23.                                            returning Respuesta-Impresor.        
  24.      if respuesta-impresor = 0 move "error-texto-cola" to pow-text of error-tex-cola.
Ale is offline   Responder Con Cita
  #67
Antiguo 28 de marzo de 2025, 13:07
fastpho
El Foro es mi casa
Innovación: Por aportar innovaciones - Issue reason: SQLite + OO Cobol class Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Issue reason: Acceso a datos Cobol vía web 
Última Actividad 21.08.2026 18:08
Posts Posts: 365
Likes enviados Enviados: 252
Likes recibidos Recibidos: 243

@Ale
Mandalo como te pongo en el ejemplo tal cual solo cambie el orden y la el numero de cola
por CONTENT

El envio de la cola lo podes probar sin la necesidad de hacer un ticket
pone un boton y envialo , si despues le metes un ticket al impresor
en la cola 11 deberia poner
*CAJERO:02 Osvaldo Linea 11 CAJA:3*
Código COBOL:
  1. WORKING-STORAGE SECTION.
  2.  01 TITULO-ECabCola  PIC X(24) VALUE "EstablecerEncabezadoCola".
  3.  01 TITULO-ECNumero  PIC X(6)  VALUE "Numero".
  4.  01 TITULO-ECTexto   PIC X(5)  VALUE "Texto".
  5.  01 Valor-ECNumero   PIC S9(9) COMP-5.
  6.  01 Valor-ECTexto    PIC X(50).
  7.  01 HEADER-11.
  8.     03 H-CAJERO  PIC X(7) VALUE "CAJERO:".
  9.     03 H-CODIGO  PIC 9(2).
  10.     03 FILLER    PIC X VALUE SPACES.
  11.     03 H-NOMBRE  PIC X(19).
  12.     03 H-CAJA    PIC X(7) VALUE "  CAJA:".
  13.     03 H-NUMERO  PIC 9(4).
  14. 01 Respuesta-Impresor PIC S9(9) COMP-5.
  15.  
  16. PROCEDURE       DIVISION.
  17.      MOVE spaces        TO FUNC-SAM4-LIB.
  18.      MOVE "IFOpBegin"   TO FUNC-SAM4-LIB.
  19.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY CONTENT TITULO-ECabCola returning Respuesta-Impresor.
  20.      DISPLAY "TITULO-ECabCola " , Respuesta-Impresor.
  21.  
  22.  
  23.  
  24.  
  25. ****************
  26. *Numero Cola
  27.      MOVE spaces              TO FUNC-SAM4-LIB.
  28.      MOVE "IFOpParamIntSet"   TO FUNC-SAM4-LIB.
  29.      MOVE 11                  TO Valor-ECNumero. *> Numero de Cola 11
  30.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY CONTENT TITULO-ECNumero *> Esto cambie POR CONTENT
  31.                                            BY VALUE   Valor-ECNumero
  32.                                            returning Respuesta-Impresor.
  33.      DISPLAY "titulo-ECNumero " , Respuesta-Impresor.    
  34.  
  35.  
  36.  
  37.  
  38. ************    
  39. *Texto Cola
  40.      MOVE spaces           TO FUNC-SAM4-LIB.
  41.      MOVE "IFOpParamSet"   TO FUNC-SAM4-LIB.
  42.      MOVE 2                   TO H-CODIGO.
  43.      MOVE "Osvaldo Linea 11 " TO H-NOMBRE.
  44.      MOVE 3                   TO H-NUMERO.
  45.      MOVE HEADER-11        TO Valor-ECTexto.
  46.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE TITULO-ECTexto
  47.                                            BY REFERENCE     Valor-ECTexto
  48.                                            returning Respuesta-Impresor.
  49.      DISPLAY "TITULO-ECTexto " , Respuesta-Impresor.
  50.  
  51. *--------------
  52. * Send
  53.      MOVE spaces       TO FUNC-SAM4-LIB.
  54.      MOVE "IFOpSend"   TO FUNC-SAM4-LIB.
  55.      MOVE 1            TO sWait.
  56.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY VALUE sWait returning Respuesta-Impresor.
  57.      DISPLAY "SEND TITULO-ECabCola " , Respuesta-Impresor.

Saludos...
fastpho is offline   Responder Con Cita
  #68
Antiguo 29 de marzo de 2025, 02:31
Ale
Forero Junior
Última Actividad 23.06.2026 00:14
Posts Posts: 43
Likes enviados Enviados: 19
Likes recibidos Recibidos: 2

fastpho probé pero no hay caso, no lo puedo resolver.. encima ahora me doy cuenta, que lo que tanto me costo hacer funcionar (cantidad en item) resulta que en tiquet anda perfecto, pero en inscr. monotr. exento, no me toma la cantidad, lo toma como valor 1.
se me termina el tiempo y la esperanza.
saludos.
Ale is offline   Responder Con Cita
  #69
Antiguo 31 de marzo de 2025, 18:33
Ale
Forero Junior
Última Actividad 23.06.2026 00:14
Posts Posts: 43
Likes enviados Enviados: 19
Likes recibidos Recibidos: 2
Predeterminado impresoras fiscales
0 Inactivo Inactivo

hola amigos. como estan?
Les hago consulta, para ver si uds se dan cuenta como resolverlo.

Código COBOL:
  1.  working....
  2.  01 PARAMETRO-ENCABEZADO  PIC X(24) VALUE "EstablecerEncabezadoCola".                                      
  3.  01 TITULO-ECNumero  PIC X(6)  VALUE "Numero".
  4.  01 TITULO-ECTexto   PIC X(5)  VALUE "Texto".
  5.  01 Valor-ECNumero   PIC S9(9) COMP-5.
  6.  01 Valor-ECTexto    PIC X(26).
  7.  
  8.  procedure.
  9.    inicio.
  10.          ......
  11.          ......
  12.          cargo (item-venta), envio (pago).  y luego antes de cerrar comprobante.
  13.          voy a probar-cola.
  14.    
  15.    
  16.    PROBANDO-COLA.
  17.       MOVE SPACES TO comando.    
  18.       move zero to respuesta-impresor.
  19.       MOVE "IFOpBegin" to comando.        
  20.       CALL comando WITH STDCALL USING BY reference parametro-encabezado                                    
  21.                                       RETURNING RESPUESTA-IMPRESOR.      
  22.       if respuesta-impresor = 0 MOVE "ERROR estableziendo cola" TO POW-TEXT OF armado-cola.
  23.  
  24. ****** este comando ya me larga (error) cuando lo envio.   probe como (content) tambien.                                                                                    
  25.  
  26. *** numero-cola.
  27.       MOVE spaces TO FUNCION3.
  28.       MOVE "IFOpParamSet"TO FUNCION3.
  29. *** Acá lo envio como ParamSet..(texto), porque como "IFOpParamIntSet" no me funciono (me larga error) valor 0
  30.       CALL FUNCION3 WITH STDCALL USING BY CONTENT TITULO-ECNumero
  31.                                        by CONTENT "19"
  32.                                        returning Respuesta-Impresor.
  33.       if respuesta-impresor = 0 move "error-colas" to pow-text of error-cod-cola.
  34. *** texto-cola      
  35.       MOVE spaces           TO FUNCION.
  36.       MOVE "IFOpParamSet"   TO FUNCION.
  37.       MOVE SPACES  TO Valor-ECTexto.      
  38.       move "probando transparencia fiscal" to Valor-ECTexto.
  39.       CALL FUNCION WITH STDCALL USING BY reference TITULO-ECTexto
  40.                                       BY REFERENCE Valor-ECTexto
  41.                                       returning Respuesta-Impresor.        
  42.       if respuesta-impresor = 0 move "error-texto-cola" to pow-text of error-tex-cola.    
  43.  
  44. *************************
  45.                 Consulta que opinan y como hacerlo si envío todo junto. algo así:
  46.      
  47.       moOVE SPACES TO comando.    
  48.       move zero to respuesta-impresor.
  49.       MOVE "IFOpBegin" to comando.        
  50.       CALL comando WITH STDCALL USING BY reference parametro-encabezado                                    
  51.                                       by reference TITULO-ECNumero
  52.                                       by content "19"
  53.                                       by reference TITULO-ECTexto
  54.                                       ....    
  55.                                       ....    
  56.                                       RETURNING RESPUESTA-IMPRESOR.

saludos....
Ale is offline   Responder Con Cita
  #70
Antiguo 31 de marzo de 2025, 20:03
fastpho
El Foro es mi casa
Innovación: Por aportar innovaciones - Issue reason: SQLite + OO Cobol class Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Issue reason: Acceso a datos Cobol vía web 
Última Actividad 21.08.2026 18:08
Posts Posts: 365
Likes enviados Enviados: 252
Likes recibidos Recibidos: 243

@Ale esto asi esta mal por que no respeta el protocolo
Código COBOL:
  1. *************************
  2.                 Consulta que opinan y como hacerlo si envío todo junto. algo así:
  3.      
  4.       moOVE SPACES TO comando.    
  5.       move zero to respuesta-impresor.
  6.       MOVE "IFOpBegin" to comando.        
  7.       CALL comando WITH STDCALL USING BY reference parametro-encabezado                                    
  8.                                       by reference TITULO-ECNumero
  9.                                       by content "19"
  10.                                       by reference TITULO-ECTexto
  11.                                       ....    
  12.                                       ....    
  13.                                       RETURNING RESPUESTA-IMPRESOR.

Código COBOL:
  1. MOVE SPACES TO comando.    
  2.       move zero to respuesta-impresor.
  3.       MOVE "IFOpBegin" to comando.        
  4.       CALL comando WITH STDCALL USING BY reference parametro-encabezado                                    
  5.                                       RETURNING RESPUESTA-IMPRESOR.      
  6.       if respuesta-impresor = 0 MOVE "ERROR estableziendo cola" TO POW-TEXT OF armado-cola.
  7.  
  8. ****** este comando ya me larga (error) cuando lo envio.   probe como (content) tambien.                                                                                    
  9.  
  10. *** numero-cola.
  11.       MOVE spaces TO FUNCION3.
  12.       MOVE "IFOpParamSet"TO FUNCION3.
  13. *** Acá lo envio como ParamSet..(texto), porque como "IFOpParamIntSet" no me funciono (me larga error) valor 0
  14.       CALL FUNCION3 WITH STDCALL USING BY CONTENT TITULO-ECNumero
  15.                                        by CONTENT "19"
  16.                                        returning Respuesta-Impresor.
  17.       if respuesta-impresor = 0 move "error-colas" to pow-text of error-cod-cola.
y para este caso donde esta el "SEND"
Otra consulta : decime de año es la version de la libreria Sam4sFiscalDriver la fecha que te figura ?
consulta nro 2 : antes de querer implementar esto trabajabas por el samdrv.exe ?
Saludos



Post añadido a las 19:03. Post anterior a las 18:53


Citación del post de fastpho Ver Mensaje
@Ale esto asi esta mal por que no respeta el protocolo
Código COBOL:
  1. *************************
  2.                 Consulta que opinan y como hacerlo si envío todo junto. algo así:
  3.      
  4.       moOVE SPACES TO comando.    
  5.       move zero to respuesta-impresor.
  6.       MOVE "IFOpBegin" to comando.        
  7.       CALL comando WITH STDCALL USING BY reference parametro-encabezado                                    
  8.                                       by reference TITULO-ECNumero
  9.                                       by content "19"
  10.                                       by reference TITULO-ECTexto
  11.                                       ....    
  12.                                       ....    
  13.                                       RETURNING RESPUESTA-IMPRESOR.

Código COBOL:
  1. MOVE SPACES TO comando.    
  2.       move zero to respuesta-impresor.
  3.       MOVE "IFOpBegin" to comando.        
  4.       CALL comando WITH STDCALL USING BY reference parametro-encabezado                                    
  5.                                       RETURNING RESPUESTA-IMPRESOR.      
  6.       if respuesta-impresor = 0 MOVE "ERROR estableziendo cola" TO POW-TEXT OF armado-cola.
  7.  
  8. ****** este comando ya me larga (error) cuando lo envio.   probe como (content) tambien.                                                                                    
  9.  
  10. *** numero-cola.
  11.       MOVE spaces TO FUNCION3.
  12.       MOVE "IFOpParamSet"TO FUNCION3.
  13. *** Acá lo envio como ParamSet..(texto), porque como "IFOpParamIntSet" no me funciono (me larga error) valor 0
  14.       CALL FUNCION3 WITH STDCALL USING BY CONTENT TITULO-ECNumero
  15.                                        by CONTENT "19"
  16.                                        returning Respuesta-Impresor.
  17.       if respuesta-impresor = 0 move "error-colas" to pow-text of error-cod-cola.
y para este caso donde esta el "SEND"
Otra consulta : decime de año es la version de la libreria Sam4sFiscalDriver la fecha que te figura ?
consulta nro 2 : antes de querer implementar esto trabajabas por el samdrv.exe ?
Saludos
Código:
[cli];5;LUIS OCAÑA;;96;17142938;;;;;
[txtadd];19 012 IC03 000764 P 11/09/2019;
[txtadd];49003524 PARTY JABX80GR CR;
[item];EMOSO;1,00;12,399;21,00;0.00000000;0;0;0;
[item];43204 REC. SEG.;1,00;0,115;21,00;0.00000000;0;0;0;
[descgral]; Descuento   1.52%;0,19;
[colaset];11;Regimen de Transparencia Fiscal;
[subinfo];
[cerrar]
fastpho is offline   Responder Con Cita
Respuesta



Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado

Saltar a Foro


La franja horaria es GMT +2. Ahora son las 18:03.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.