Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL y COM/OLE
PowerCOBOL y COM/OLE La utilización de COM / OLE en PowerCOBOL
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Exportar Reporte a Excel jmeza Fujitsu COBOL 4 7 de julio de 2018 19:29
[Información] Exportar archivos de PowerCOBOL 5 a Web fastpho PowerCOBOL (ActiveX, v4 - v11) 10 21 de noviembre de 2017 19:48
[Aporte] Exportar CmListview en Excel Rapinto Cocina PowerCOBOL + COM/OLE 0 25 de febrero de 2015 23:31
Respuesta
 
Herramientas

  #1
Antiguo 4 de mayo de 2020, 01:56
IDENTIFICATION DIVISION
Roger
Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
Forero desde (Registrado)febrero 2015
Perú
Ubicación Lima
Última Actividad24.01.2021 04:31
PROCEDURE DIVISION
PostsPosts: 255
Ha dicho GraciasEnviado: 27
Ha recibido agradecimientosRecibido: 78
Mejores respuestasSoluiones: 5
ReputaciónReputación: 12
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Excel Exportar a Excel

Necesito al exportar un campo envié a la columna en excel de esta forma
Código:
CODIGO                  PRODUCTO              EN EXCEL      CODIGO             PRODUCTO  
 127                  ACONDICIONADOR                              000127            ACONDICIONADOR
Manualmente lo puedo hacer pero necesito que sea automático por programa intente poniendo campo alfanumérico y no funciona.
Roger no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 4 de mayo de 2020, 03:32
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Puerto Madryn
Edad68 años
Última Actividad19.01.2021 15:18
PROCEDURE DIVISION
PostsPosts: 308
Ha dicho GraciasEnviado: 100
Ha recibido agradecimientosRecibido: 112
Mejores respuestasSoluiones: 10
ReputaciónReputación: 16
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

Hola Roger, disculpa pero no entiendo.

Saludos
H
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 4 de mayo de 2020, 04:13
IDENTIFICATION DIVISION
Roger
Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
Forero desde (Registrado)febrero 2015
Perú
Ubicación Lima
Última Actividad24.01.2021 04:31
PROCEDURE DIVISION
PostsPosts: 255
Ha dicho GraciasEnviado: 27
Ha recibido agradecimientosRecibido: 78
Mejores respuestasSoluiones: 5
ReputaciónReputación: 12
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

en la primera imagen asi lo exporta y el la segunda asi deseo
Imágenes Adjuntas
Tipo de Archivo: jpg aa.jpg (176,1 KB, 21 descargas)
Tipo de Archivo: jpg bb.jpg (186,2 KB, 18 descargas)
Roger no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 4 de mayo de 2020, 09:02
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad26.01.2021 12:52
PROCEDURE DIVISION
PostsPosts: 560
Ha dicho GraciasEnviado: 248
Ha recibido agradecimientosRecibido: 269
Mejores respuestasSoluiones: 35
ReputaciónReputación: 26
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de Roger Ver Mensaje
intente poniendo campo alfanumérico y no funciona
prueba de la siguiente manera a ver si te vale

Código COBOL:
  1. 01 EXPORTADO.
  2.    03                                        PIC X VALUE "'".
  3.    03  NUM                                PIC 9(6) USAGE IS DISPLAY.
  4.    .
  5.    .
  6.    .
  7.  PROCEDURE DIVISION.
  8.    .
  9.    .
  10.    .
  11.      MOVE NUMERO_A_EXPORTAR TO NUM.
  12.      INSPECT EXPORTADO
  13.                  REPLACING ALL " " BY "0".
  14.    .
  15.    .
  16.    .
  17.      .... RUTINA_DE_EXPORTAR_A_EXCEL donde envíamos la variable EXPORTADO, no la variable NUM.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 4 de mayo de 2020, 15:45
IDENTIFICATION DIVISION
Roger
Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
Forero desde (Registrado)febrero 2015
Perú
Ubicación Lima
Última Actividad24.01.2021 04:31
PROCEDURE DIVISION
PostsPosts: 255
Ha dicho GraciasEnviado: 27
Ha recibido agradecimientosRecibido: 78
Mejores respuestasSoluiones: 5
ReputaciónReputación: 12
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

@Josber no funciona da el mismo resultado sin los ceros.
Roger no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 4 de mayo de 2020, 15:51
IDENTIFICATION DIVISION
Gusaiello
Novato Senior
Activista del Foro: Activista del Foro - Razón: Por aportar ejecrcicios para los novatos 
ENVIRONMENT DIVISION
Avatar de Gusaiello
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Quilmes, Buenos Aires
Edad65 años
Última Actividad26.01.2021 21:26
PROCEDURE DIVISION
PostsPosts: 132
Ha dicho GraciasEnviado: 48
Ha recibido agradecimientosRecibido: 84
Mejores respuestasSoluiones: 7
ReputaciónReputación: 13
Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road
Predeterminado

Yo creo que deberías pasarlo como si fuera texto desde una variable
Código COBOL:
  1. PIC X(6)
.

No sirve definir en excel la columna con formato texto, por que igual te quitará los ceros.

O sea que en el ejemplo de @Josber, cambiar
Código COBOL:
  1. PIC 9(6)
por
Código COBOL:
  1. PIC X(6)
.
Gusaiello no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 4 de mayo de 2020, 15:58
IDENTIFICATION DIVISION
JCantero
Novato Senior
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
Forero desde (Registrado)junio 2016
España
Ubicación Albacete
Edad54 años
Última Actividad26.01.2021 23:59
PROCEDURE DIVISION
PostsPosts: 161
Ha dicho GraciasEnviado: 44
Ha recibido agradecimientosRecibido: 111
Mejores respuestasSoluiones: 7
ReputaciónReputación: 16
JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road
Predeterminado

Para poder ayudarte, debes de poner aqui la parte del programa donde montas la linea ( o flla ) para pasarlo a excel.

Asi como la estructura de los campos utilizados.

---------- Post añadido : 15:58 ---------- Post anterior : 15:52 ----------

Como dice @Gusaiello,

si tienes:

Código COBOL:
  1. 01  referencia-n pic 9(6).
  2. 01  referencia-a pic x(6).
  3. *
  4. *
  5. *
  6. move 5 to referencia-n
  7. move referencia-n to referencia-a

en referencia-a tienes 000005

Última edición por Kuk fecha: 4 de mayo de 2020 a las 17:11. Razón: Utiliza el resalto de sintáxis ;)
JCantero no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 4 de mayo de 2020, 18:31
IDENTIFICATION DIVISION
Roger
Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
Forero desde (Registrado)febrero 2015
Perú
Ubicación Lima
Última Actividad24.01.2021 04:31
PROCEDURE DIVISION
PostsPosts: 255
Ha dicho GraciasEnviado: 27
Ha recibido agradecimientosRecibido: 78
Mejores respuestasSoluiones: 5
ReputaciónReputación: 12
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

Amigos para ponerlo en contexto este programa me sirve para imprimir códigos de barras a través de una impresora Zebra GC420T que esta relacionada con un archivo excel generado por powercobol, si en la hoja excel el código se exporta "127" las barras seran diferentes a "000127"
para hacer mas complicada el campo de lectura de barras lee campos alfa numéricos de hasta 16 caracteres por ese motivo no puedo poner un campo de recepción numérica de 6 caracteres que seria la solución .

Código COBOL:
  1. ENVIRONMENT DIVISION.
  2.  INPUT-OUTPUT SECTION.
  3.  FILE-CONTROL.
  4.      SELECT LEXCEL
  5.      ASSIGN TO "d:\VET-SIS\BARRAS.XLS"
  6.      ORGANIZATION IS LINE SEQUENTIAL.
  7.  
  8.  DATA DIVISION.
  9.  FILE SECTION.
  10.  
  11.  FD LEXCEL
  12.      LABEL RECORD IS STANDARD.
  13.  01 REC-LEXCEL PIC X(500).
  14.  WORKING-STORAGE SECTION.
  15.  01 EXCEL OBJECT REFERENCE COM IS GLOBAL.
  16.  01 WORKBOOK OBJECT REFERENCE COM IS GLOBAL.
  17.  01 COM-TRUE PIC 1(1) BIT VALUE B"1" IS GLOBAL.
  18.  01 APPLICATION PIC X(20) VALUE "EXCEL.APPLICATION" IS GLOBAL.
  19.  01 EXCEL_FILE PIC X(35) VALUE "d:\VET-SIS\BARRAS.XLS".
  20.  01 L-1.
  21.     02 PIC X(6) VALUE "<BODY>".
  22.     02 PIC X(15) VALUE "<TR><TH> ".
  23.  01 L-2.
  24.     02 PIC X(7) VALUE "<TABLE>".
  25.  01 L-3.
  26.     02 PIC X(10) VALUE "<TR><TH> ".
  27.     02 NOM-I PIC X(85).
  28.     02 PIC X(4) VALUE "<TD>".
  29.     02 COD-I PIC X(6) VALUE "000000".
  30.     02 PIC X(4) VALUE "<TD>".
  31.     02 PRECIO-I pic   ZZZ,ZZ.99.      
  32.  01 GRUPO.
  33.    02 G1 PIC 999.
  34.    02 G2 PIC X(17).  
  35.  01 COD pic X(6) VALUE "000000".  
  36.  01 RUTA PIC X(256).
  37.  01 REDD GLOBAL EXTERNAL.
  38.    02 RED PIC X(256).
  39.  01 RUTA-ETI PIC X(256) VALUE "C:\Program Files (x86)\Zebra Technologies\ZebraDesigner Pro 2\bin\Design.exe".
  40.  PROCEDURE      DIVISION.
  41.  INICIO.  
  42.        OPEN OUTPUT LEXCEL CLOSE LEXCEL.
  43.        OPEN EXTEND LEXCEL.
  44.        MOVE POW-FALSE TO ENABLED OF CTPUSH3.
  45.  GRAVAEXCEL.
  46.       WRITE REC-LEXCEL FROM L-1.
  47.       WRITE REC-LEXCEL FROM L-2.
  48.  INICIO.
  49.       MOVE SPACES TO RUTA.
  50.       STRING RED DELIMITED BY SPACES
  51.             "Artic.DAT" DELIMITED BY SIZE
  52.             INTO RUTA.
  53.       MOVE RUTA TO WF-ARTIC.
  54.       OPEN INPUT ARTIC.
  55.       MOVE " "  TO DESCRIPCION-AR.
  56.       START ARTIC KEY NOT < DESCRIPCION-AR INVALID KEY
  57.        GO LEE.
  58.  LEE. READ ARTIC NEXT AT END GO FIN.
  59.       MOVE GRUPO-AR TO GRUPO.
  60.       IF G1 = 002 GO LEE.
  61.       IF G1 = 007 GO LEE.
  62.       IF G1 = 008 GO LEE.
  63.       MOVE CODIGO-AR  TO COD.
  64.       INSPECT COD REPLACING ALL " " BY "0".
  65.       move COD to  COD-I.
  66.       MOVE DESCRIPCION-AR TO NOM-I.
  67.       MOVE PRECIO-AR TO PRECIO-I.
  68.       WRITE REC-LEXCEL FROM L-3.
  69.       GO LEE.
  70.  FIN.  
  71.       CLOSE ARTIC.
  72.       CLOSE LEXCEL.
  73.       INVOKE COM "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.
  74. *      INVOKE EXCEL "SET-VISIBLE" USING COM-TRUE.
  75.       INVOKE EXCEL "GET-WORKBOOKS" RETURNING WORKBOOK.
  76.       INVOKE WORKBOOK "Open" using EXCEL_FILE.
  77.       invoke pow-self "THRUEVENTS".
  78.       INVOKE POW-SELF "executesync" USING RUTA-ETI.
  79.       INVOKE EXCEL "QUIT".
  80.       EXIT PROGRAM.  


(ojo) CODIGO-AR PIC 9(6).
Roger no ha iniciado sesión   Responder Con Cita
  #9
Antiguo 4 de mayo de 2020, 19:57
IDENTIFICATION DIVISION
JCantero
Novato Senior
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
Forero desde (Registrado)junio 2016
España
Ubicación Albacete
Edad54 años
Última Actividad26.01.2021 23:59
PROCEDURE DIVISION
PostsPosts: 161
Ha dicho GraciasEnviado: 44
Ha recibido agradecimientosRecibido: 111
Mejores respuestasSoluiones: 7
ReputaciónReputación: 16
JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road
Predeterminado

El problema que veo es que generas un html y llamas a Excel.

Excel te lo convierte.

Si abres el fichero con un explorador, se veria bien
, Como tú quieres. ( Seguramente cambiando la extensión a .html )

En powercobol no te puedo ayudar, pero sería crear un Excel (no html), marcando todas las columnas como alfanuméricas.

¿ Admite la impresora, en vez de Excel , un CSV o un fichero texto con tabuladores ?
JCantero no ha iniciado sesión   Responder Con Cita
  #10
Antiguo 5 de mayo de 2020, 02:47
IDENTIFICATION DIVISION
Roger
Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
Forero desde (Registrado)febrero 2015
Perú
Ubicación Lima
Última Actividad24.01.2021 04:31
PROCEDURE DIVISION
PostsPosts: 255
Ha dicho GraciasEnviado: 27
Ha recibido agradecimientosRecibido: 78
Mejores respuestasSoluiones: 5
ReputaciónReputación: 12
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

@JCantero revisando las opciones de base de datos de Zebra encontre que podia ser txt, cvs, excel probe con .txt y funciona de maravillas.
Roger no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

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



La franja horaria es GMT +1. Ahora son las 01:23.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.