Tengo una aplicación con Xharbour+sqlrdd+postgresql sobre windows, funciona bien en local y remoto.
Estoy haciendo pruebas con Linux Mint + wine, funciona bien a excepción de la vista en modo terminal.
Si compilo con harbour se ve bien en modo terminal, si compilo con xharbour no se ve bien en modo terminal.
(el mismo código en ambos casos)
alguna sugerencia ?
Saludos
Anexo código fuente e imagen.
Código: Selecionar todos
#include "hbgtinfo.ch"
#include "inkey.ch"
Request HB_LANG_ES
Request HB_GT_WVT
Procedure Main()
Local aMenuOpts := array(7)
Local aMenuDefs := array(7)
Local nSelection,cPopBox,cNumCve
Local cNewIndex
Local nInSelect := select()
Cls
HB_LANGSELECT('ES')
SET AUTOPEN OFF
SET AUTOSHARE TO 1
SET TALK OFF
SET STATUS OFF
SET ECHO OFF
SET CONFIRM OFF
SET BELL OFF
SET DELETED ON
SET SCORE OFF
SET SAFETY OFF
SET SCOREBOARD OFF
SET CENTURY ON
SET EPOCH TO 1960
SET DATE FORMAT TO "DD/MM/YYYY"
SET DATE FRENCH
SETCANCEL(.F.)
// Manejo del mouse
SET( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE + HB_INKEY_GTEVENT )
//Resolución de pantalla
SetMode( 25, 80 )
*--- DEFINE COLOR DEL MONITOR
COLOR1 := "W/B"
COLOR2 := "W/B"
COLOR3 := "N/BG"
COLOR4 := "GR+/B"
COLOR5 := "W+/B"
Set color to &COLOR1,&COLOR3,,,&COLOR2
Cls
HB_GTInfo( HB_GTI_WINTITLE , 'Sistema de Prueba' )
HB_GtInfo( HB_GTI_RESIZABLE, .T. )
HB_GTInfo( HB_GTI_CLOSABLE , .F. )
Paint_SF()
aMenuOpts[1] :="Catalogo:Articulos:Marcas:Lineas:Clientes:Proveedores:Formas dePago:Cajeros:Departamentos:Encargados:Conceptos Movtos Inv.:Vendedores"
aMenuOpts[2] := "Procesos:Punto de Venta:Duplicado de Notas:Cancelaci¢nde Notas:Cortes de Caja:Movtos al Inventario:Caducidades:Factura electr¢nicavarias notas:Refacturar una ¢ varias notas:Cancelaci¢n de Factura electr¢nica:Reporte de facturas:Reporte mensual al SAT:Factura electr¢nica por concepto:Reenviar facturas:Notas de credito:Captura de pedidos"
aMenuOpts[3] := "Reportes:Reporte de Departamentos:Articulos con Movtos:Consulta de Notas:Kardex:Reporte x departamentos:Historial de Vtas.:Auditoria:Reporte x Proveedor:Reporte Caducidad:Catalogo Gral:Reimpresion de Movtos.:Historial Movtos.:Costo del Inventario:Costo delo vendido detalle:Costo de lo vendido x Deptos:Movimientos por Proveedor:Movimientos por proveedor desglosado:Inventario Costeado"
aMenuOpts[4] := "Utilerias:Datos de la Empresa:Generaci¢n de Indices:Usuarios:Cambio de Usuario:Cambio de Clave:Respaldo x Z:Limpiar Historial Arti:Acumular Info:Folio Factura electr¢nica:Respaldo Empresa:Reporteador"
aMenuOpts[5] := "Reportes 1:Inventario costeado por lineas detallado:Inventario costeado por lineas:Cajeros:Ventas Salchi:Ventas Carnes:Costo de lo vendido por articulo:Notas Cancelada:Reporte x Marca:Reporte x Hora:Reporte x articulo x fecha:Reporte de ventas detallado:Reporte de compras detallado:Reporte de compras (Global):Reporte de ventas por dia:Reporte CP:Reporte de Venta por dia Mensual"
aMenuOpts[6] := ""
aMenuOpts[7] := "Proceso:Salir"
nSelection = 1.01
*- define menu boxes
aMenuDefs[1] := .T. && draw the top bar box ?
aMenuDefs[2] := COLOR1 && top bar color string
aMenuDefs[3] := COLOR2 && drop box color
aMenuDefs[4] := sls_frame() && drop box frame
aMenuDefs[5] := 1 && drop box shadow position (1,3,7,9,0)
aMenuDefs[6] := sls_shadatt() && drop box shadow attribute
aMenuDefs[7] := 1 && row # of menu bar
Do while .T.
nSelection := Pulldn(nSelection,aMenuOpts,aMenuDefs)
*- if 0 returned, selection is QUIT
If nSelection = 0
nSelection := 7.01
Endif
nSelection := val(trans(nSelection,"9.99"))
Do Case
Case nSelection = 1.01
Case nSelection = 1.02
Case nSelection = 1.03
Case nSelection = 1.04
Case nSelection = 1.05
Case nSelection = 1.06
Case nSelection = 1.07
Case nSelection = 1.08
Case nSelection = 1.09
Case nSelection = 1.10
Case nSelection = 1.11
Case nSelection = 2.01
Case nSelection = 2.02
Case nSelection = 2.03
Case nSelection = 2.04
Case nSelection = 2.05
Case nSelection = 2.06
Case nSelection = 2.07
Case nSelection = 2.08
Case nSelection = 2.09
Case nSelection = 2.10
Case nSelection = 2.11
Case nSelection = 2.12
Case nSelection = 2.13
Case nSelection = 2.14
Case nSelection = 2.15
Case nSelection = 3.01
Case nSelection = 3.02
Case nSelection = 3.03
Case nSelection = 3.04
Case nSelection = 3.05
Case nSelection = 3.06
Case nSelection = 3.07
Case nSelection = 3.08
Case nSelection = 3.09
Case nSelection = 3.10
Case nSelection = 3.11
Case nSelection = 3.12
Case nSelection = 3.13
Case nSelection = 3.14
Case nSelection = 3.15
Case nSelection = 3.16
Case nSelection = 3.18
Case nSelection = 4.01
Case nSelection = 4.02
Case nSelection = 4.03
Case nSelection = 4.04
Case nSelection = 4.05
Case nSelection = 4.06
Case nSelection = 4.07
Case nSelection = 4.08
Case nSelection = 4.09
Case nSelection = 4.10
Case nSelection = 4.11
Case nSelection = 5.01
Case nSelection = 5.02
Case nSelection = 5.03
Case nSelection = 5.04
Case nSelection = 5.05
Case nSelection = 5.06
Case nSelection = 5.07
Case nSelection = 5.08
Case nSelection = 5.09
Case nSelection = 5.10
Case nSelection = 5.11
Case nSelection = 5.12
Case nSelection = 5.13
Case nSelection = 5.14
Case nSelection = 5.15
Case nSelection = 5.16
Case nSelection = 6.01
Case nSelection = 7.01
EXIT
EndCase
Enddo
Set color to
Cls
Quit
Return
//----------------------
Procedure Paint_sf()
@ 1, 90 SAY Date() COLOR COLOR2
Return