{"id":679,"date":"2026-05-14T10:45:53","date_gmt":"2026-05-14T13:45:53","guid":{"rendered":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/?p=679"},"modified":"2026-05-18T10:49:12","modified_gmt":"2026-05-18T13:49:12","slug":"migrar-un-procedimiento-que-genera-un-pdf-y-un-excel-de-gx9-a-gx18","status":"publish","type":"post","link":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/?p=679","title":{"rendered":"Migrar un procedimiento que genera un PDF y un Excel de GX9 a GX18"},"content":{"rendered":"
\n

\ud83d\udd04 Migraci\u00f3n GX9 \u2192 GX18: Como Migrar un procedimiento que genera un PDF y un Excel<\/h1>\n

Usaremos un caso de ejemplo de c\u00f3mo se separ\u00f3 un procedimiento original en GX9 en dos archivos independientes (PDF y Excel) en GX18<\/p>\n

GX9: FiscImpr <\/span>GX18: PFiscImpPDF y<\/span>\u00a0PFiscImpExcel<\/span><\/strong><\/div>\n<\/div>\n
\n

\ud83d\udccb\u00a0Resumen de la migraci\u00f3n<\/u><\/h2>\n

En\u00a0GeneXus 9<\/b>\u00a0exist\u00eda un \u00fanico procedimiento llamado\u00a0FiscImpr<\/code>\u00a0que generaba tanto\u00a0Excel<\/b>\u00a0como\u00a0PDF<\/b>. En\u00a0GeneXus 18<\/b>\u00a0se separ\u00f3 en dos procedimientos independientes para mayor claridad y mantenimiento:<\/p>\n

\n
FiscImpr\u00a0(GX9)<\/span><\/div>\n

\u2192<\/span><\/p>\n

PFiscImpPDF<\/div>\n

+<\/span><\/p>\n

PFiscImpExcel<\/div>\n<\/div>\n<\/div>\n
\n

\ud83d\udcca\u00a0Creaci\u00f3n de PFiscImprExcel<\/u><\/h2>\n

Se parti\u00f3 de una\u00a0copia del original<\/b>\u00a0FiscImpr (GX9) y se aplicaron estos pasos:<\/p>\n

Pasos realizados<\/h3>\n
1<\/span><\/p>\n

Con\u00a0Ctrl+F<\/span>\u00a0busqu\u00e9 todas las l\u00edneas que conten\u00edan\u00a0print<\/code>\u00a0en el c\u00f3digo y las\u00a0elimin\u00e9<\/b>, ya que pertenecen a la generaci\u00f3n del PDF.<\/p>\n<\/div>\n

2<\/span><\/p>\n

En la secci\u00f3n de\u00a0Layout<\/b>\u00a0borr\u00e9 todo el contenido (los printblocks del PDF).<\/p>\n<\/div>\n

3<\/span><\/p>\n

Con\u00a0Ctrl+H<\/span>\u00a0(Replace) reemplac\u00e9 todas las llamadas viejas del Excel:
&Excel<\/code>\u00a0\u2192\u00a0&ExcelDocument<\/code>
Esto convierte autom\u00e1ticamente las referencias como\u00a0&Excel.Cells<\/code>\u00a0a\u00a0&ExcelDocument.Cells<\/code>.<\/p>\n<\/div>\n

4<\/span><\/p>\n

Reemplac\u00e9 la\u00a0Sub ‘XLS’<\/b>\u00a0completa. Se elimin\u00f3 la llamada vieja a\u00a0PCrtFile<\/code>\u00a0y se us\u00f3\u00a0GetBlob<\/code>\u00a0+\u00a0DownloadBlob<\/code>\u00a0en su lugar.<\/p>\n<\/div>\n

Comparaci\u00f3n: Sub ‘XLS’<\/h3>\n

\u274c GX9 (antes):<\/b><\/p>\n

Sub<\/span> 'XLS'<\/span>\r\n    &PlaNom = Upper(&IdBienChr) + '_' + Upper(&Tip)\r\n    &PlaNom = Trim(&PlaNom)\r\n    \/\/ Usaba PCrtFile para obtener la plantilla<\/span>\r\n    Call(PCrtFile, 2, 61,'','N',&PlaNom,'N',&PlaImp,&PlaAbr,&ArcDes,&CantCopias,&Ok)<\/span>\r\n    &Exist = FileExist(&ArcDes)<\/span>\r\n    if &Exist = 0<\/span>\r\n        &msg = 'No existe Plantilla ' + &ArcDes<\/span>\r\n        Msg(&msg)<\/span>\r\n        Return<\/span>\r\n    Else<\/span>\r\n        If &ArcDes <> ''<\/span>\r\n            &Err = &Excel.Open(&ArcDes)<\/span>\r\n            If &Excel.ErrCode <> 0<\/span>\r\n                Msg('Error de carga de archivo')<\/span>\r\n                Return<\/span>\r\n            Else<\/span>\r\n                &T = 7\r\n                &P = 1\r\n                &Excel.Cells(1,1).Text = &Head(1)\r\n                \/\/ ...resto de celdas...<\/span>\r\n            EndIF<\/span>\r\n        EndIF<\/span>\r\n    Endif<\/span>\r\nEndSub<\/span><\/code><\/pre>\n
\u2705 GX18 (despu\u00e9s):<\/b><\/p>\n
Sub<\/span> 'XLS'<\/span>\r\n    \/\/ Obtener plantilla con GetBlob (c\u00f3digo 61)<\/span>\r\n    &PlaCod = 61\r\n    getblob.Call(&PlaCod, &NuevoArchivo, &PlaNom, &PlaExtArc, &mensaje, &ok)<\/span>\r\n    If<\/span> &Ok <> 'S'\r\n        msg(&mensaje)\r\n        Return\r\n    EndIf<\/span>\r\n\r\n    \/\/ Abrir Excel<\/span>\r\n    &ExcelDocument.Open(&NuevoArchivo)<\/span>\r\n    If<\/span> &ExcelDocument.ErrCode <> 0\r\n        msg('Error al abrir Excel: '<\/span> + &ExcelDocument.ErrDescription)\r\n        &ExcelDocument.Close()\r\n        Return\r\n    EndIf<\/span>\r\n\r\n    \/\/ Encabezados fijos<\/span>\r\n    &ExcelDocument.Cells(1,  1).Text = &Head(1)\r\n    &ExcelDocument.Cells(6,  2).Text = &Head(2)\r\n    &ExcelDocument.Cells(6,  8).Text = &Head(3)\r\n    &ExcelDocument.Cells(6, 11).Text = DTOC(&FisFecAct)\r\n    &ExcelDocument.Cells(6, 13).Text = &Head(4)\r\n    &ExcelDocument.Cells(1,  8).Text = &Head(6)\r\n\r\n    \/\/ Encabezados de columnas<\/span>\r\n    &T = 7\r\n    &P = 1\r\n    Do While<\/span> &T < 36\r\n        If<\/span> &Head(&T) <> ''\r\n            &ExcelDocument.Cells(8, &P).Text = &Head(&T)\r\n            &ExcelDocument.Cells(8, &P).Bold = True\r\n        EndIf<\/span>\r\n        &T += 1\r\n        &P += 1\r\n    EndDo<\/span>\r\nEndSub<\/span><\/code><\/pre>\n
\ud83d\udcd6 Existe documentaci\u00f3n aparte sobre c\u00f3mo utilizar\u00a0GetBlob<\/b>\u00a0y\u00a0DownloadBlob<\/b>\u00a0para reemplazar el viejo\u00a0PCrtFile \/ PCrtFilev2<\/b>. Consultala en la wiki.<\/p>\n
Luego en el sub Mues_XLS que comunmente sule estar en todos los procedimientos lo dejamos asi:
Sub ‘MuesExc’
\u00a0 \u00a0 \u00a0 \u00a0 \u00a0&ExcelDocument.Save()
\u00a0 \u00a0 \u00a0 \u00a0 &ExcelDocument.Close()
EndSub<\/p>\n
Es muy importante dejarlo asi ya que suele estar &ExcelDocument.Show() lo cual nos dara un error invisible<\/p>\n
Rules:<\/strong>
Por ultimo agregaremos las variables nuevas del GetBlob como salida:
out:&mensaje, out:&PlaExtArc, out:&PlaNom,out:&NuevoArchivo<\/strong><\/div>\n
\u2699\ufe0f\u00a0Propiedades del objeto<\/u><\/h2>\n\n\n\n\n\n
Propiedad<\/th>\nValor<\/th>\n<\/tr>\n
Call Protocol<\/b><\/td>\nInternal<\/code><\/td>\n<\/tr>\n
Main Program<\/b><\/td>\nFalse<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n
\ud83d\udcc4\u00a0Creaci\u00f3n de PFiscImpPDF<\/u><\/h2>\n
Tambi\u00e9n se parti\u00f3 de una copia del original FiscImpr (GX9) pero aplicando la l\u00f3gica inversa:<\/p>\n
1<\/span><\/p>\n
Con\u00a0Ctrl+F<\/span>\u00a0busqu\u00e9 todas las l\u00edneas que conten\u00edan\u00a0Excel<\/code>\u00a0y las\u00a0elimin\u00e9<\/b>, ya que este procedimiento solo genera PDF.
Al igual que la llamada del PCrtFile o PCrtFileV2 y las lineas que debugean esos procedimientos como:<\/p>\n
&Exist = FileExist(&ArcDes)
If &Exist = 0
\u00a0 \u00a0 \u00a0 \u00a0 Msg(‘No existe plantilla: ‘ + &ArcDes)
\u00a0 \u00a0 \u00a0 \u00a0 Return
EndIf<\/p>\n
Rules:<\/strong>
Agregamos el output_file:
output_file(‘Impresion_Fiscalizacion’,’PDF’);<\/strong><\/p>\n<\/div>\n<\/div>\n
\n
\u2699\ufe0f\u00a0Propiedades del objeto<\/u><\/h2>\n\n\n\n\n\n\n\n
Propiedad<\/th>\n\u00a0<\/th>\nPFiscImpPDF<\/th>\n<\/tr>\n
Call Protocol<\/b><\/td>\n\u00a0<\/td>\nHTTP<\/code><\/td>\n<\/tr>\n
Main Program<\/b><\/td>\n\u00a0<\/td>\nTrue<\/code><\/td>\n<\/tr>\n
\u00a0<\/td>\n\u00a0<\/td>\n\u00a0<\/td>\n<\/tr>\n
\u00a0<\/td>\n\u00a0<\/td>\n\u00a0<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n
\n
\ud83d\udda5\ufe0f\u00a0Pantalla que llama a los procedimientos: WFiscExte<\/u><\/p>\n
En la pantalla\u00a0WFiscExte<\/code>\u00a0se agregaron\u00a02 checkboxes<\/b>: uno para\u00a0XLS<\/b>\u00a0y otro para\u00a0PDF<\/b>. Al lado hay botones de acci\u00f3n (Agentes Percepci\u00f3n, Contribuyentes, Fisco, etc.). Seg\u00fan qu\u00e9 checkbox est\u00e9 marcado, se llama al procedimiento correspondiente.<\/p>\n
Ejemplo: Event ‘DoAgePer’ (Agentes de Percepci\u00f3n)<\/h3>\n
Event<\/span> 'DoAgePer'<\/span>\r\n    \/\/ Si eligi\u00f3 PDF<\/span>\r\n    if<\/span> &pdfgen = true\r\n        pfiscimpPDF<\/span>.Call('APE'<\/span>, ORGCOD, IdBien, FisCod, FisEstCod)\r\n    endif<\/span>\r\n\r\n    \/\/ Si eligi\u00f3 Excel<\/span>\r\n    If<\/span> &GenExe = True\r\n        PFiscImprExcel<\/span>.call('APE'<\/span>, ORGCOD, IdBien, FisCod,\r\n                FisEstCod, &GenExe, &mensaje, &PlaExtArc,\r\n                &PlaNom, &NuevoArchivo)\r\n        DownloadBlob<\/span>.link(&PlaExtArc, &PlaNom, &NuevoArchivo)\r\n    EndIf<\/span>\r\nEndEvent<\/span><\/code><\/pre>\n
Ejemplo: Event ‘DoPeriodosGenerados’<\/h3>\n
En este caso la opci\u00f3n de Excel\u00a0no est\u00e1 disponible<\/b>, solo funciona PDF. Si el usuario marca XLS se muestra un mensaje con un toast informativo.<\/p>\n
Event<\/span> 'DoPeriodosGenerados'<\/span>\r\n    if<\/span> &pdfgen = true\r\n        If<\/span> FisEstCod = 2 OR<\/span> FisEstCod = 4\r\n            PFisPerGen<\/span>.Call(ORGCOD, IdBien, FisCod)\r\n        Else<\/span>\r\n            msg('Esta opci\u00f3n esta disponible para Fiscalizaci\u00f3n\/Sumario PROCESADOS'<\/span>)\r\n        EndIf<\/span>\r\n    EndIf<\/span>\r\n    If<\/span> &GenExe = True\r\n        toast.Info('EXCEL NO DISPONIBLE'<\/span>,\r\n            'Esta Opcion solo esta disponible en PDF'<\/span>, 5000, ''<\/span>)\r\n    endif<\/span>\r\nEndEvent<\/span><\/code><\/pre>\n
\u2139\ufe0f El patr\u00f3n es siempre el mismo: verificar el checkbox \u2192 llamar al procedimiento correspondiente. Para Excel, despu\u00e9s del\u00a0.call<\/code>\u00a0siempre va el\u00a0DownloadBlob.link<\/code>.<\/div>\n
\ud83d\udcd6 Existe documentaci\u00f3n en la wiki sobre c\u00f3mo funciona\u00a0DownloadBlob<\/b>. Consultala para m\u00e1s detalle.<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
\ud83d\udd04 Migraci\u00f3n GX9 \u2192 GX18: Como Migrar un procedimiento que genera un PDF y un Excel Usaremos un caso de ejemplo de c\u00f3mo se separ\u00f3 un procedimiento original en GX9 en dos archivos independientes (PDF y Excel) en GX18 GX9: FiscImpr GX18: PFiscImpPDF y\u00a0PFiscImpExcel \ud83d\udccb\u00a0Resumen de la migraci\u00f3n En\u00a0GeneXus 9\u00a0exist\u00eda un \u00fanico procedimiento llamado\u00a0FiscImpr\u00a0que generaba […]<\/p>\n","protected":false},"author":10,"featured_media":680,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[20],"tags":[],"class_list":["post-679","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-docs"],"_links":{"self":[{"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=\/wp\/v2\/posts\/679","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=\/wp\/v2\/users\/10"}],"replies":[{"embeddable":true,"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=679"}],"version-history":[{"count":4,"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=\/wp\/v2\/posts\/679\/revisions"}],"predecessor-version":[{"id":686,"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=\/wp\/v2\/posts\/679\/revisions\/686"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=\/wp\/v2\/media\/680"}],"wp:attachment":[{"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=679"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=679"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/wiki.gobiernoriocuarto.gob.ar\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=679"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}