Consulta sistema hibrido
Ayuda en Informatica
Hola a todos, quiero consultarles
Hace un tiempo empecé a usar oohg, primero modo consola, después consola con algunas rutinas “visuales”, todo funciona ok.
Acá va la consulta: puedo arrancar en modo visual e ir a algunas funciones de programas (como por ej. un ABM) en modo consola?
No encontré en el foro alguna referencia al tema, solo una pregunta similar sin contestación.
En verdad armé el main con el menú y la llamada pero cuando pasa a la función consola solo se queda en la ventana principal.
Veo en samples/console/s3.prg una compilación con parámetro mixedmode pero no encuentro como parametrizarlo en QPM.
Seguramente podrán orientarme, desde ya muchas gracias.
Claudio Roldan
Ayuda en Informatica
Hola a Todos.
Hice algunas pruebas con lo poco que encontré disponible en la web
Pero cuando arranca en modo visual genera una venta modo consola inactiva
Al llamar al modulo el programa se cuelga
Dejo algunas pantallas que quizas sirvan de indicion para ayudar a ver que estoy haciendo en forma incorrecta.
Nuevamente gracias.
Claudio Roldan.-
En el programa main defino la ventana principal y los menus
Aquí la llamada de los módulos que corren en modo consola (trabajando sobre cartera.prg)
DEFINE MAIN MENU
DEFINE POPUP '&Movimientos'
MENUITEM 'C&artera' ACTION (INIConsole(),f_Cartera(),FINConsole())
MENUITEM '&Emitidos' ACTION f_emitido() // MsgExclamation('Opción en Desarrollo','Atenci¢n...')
MENUITEM '&Varios' ACTION f_varios() //MsgExclamation('Opción en Desarrollo','Atención...')
* SEPARATOR
Aquí las funciones que se ejecutan antes y después del llamado del módulo en modo consola
****************************************
FUNCTION INIConsole()
MINIMIZE WINDOW Principal
SET CONFIRM ON
DO EVENTS
* SETMODE(25,80)
* SETCOLOR(MICOLOR)
* CLOSE DATABASES
FUNCTION FINConsole()
MAXIMIZE WINDOW Principal
DO EVENTS
* CLOSE DATABASES
****************************************
Aquí el módulo consola
/*
Programa: Cartera.prg
Objeto__: Manejo de Cheques de Cartera
Autor___: Claudio Roldán
.DBF____: Cartera.dbf
*/
REQUEST HB_GT_WIN_DEFAULT
#include "oohg.ch"
#include "sistema.ch"
#include "hbgtinfo.ch"
*-------------------*
function f_cartera()
*-------------------*
local opcion:=1, que_color:=setcolor()
private cCond:="", cTitulo:=""
private desde:=date() , hasta:=date()
private aBcoAux:=array(0), aAcred:=array(0)
private aDias := { "DOMINGO ", "LUNES ", "MARTES ", "MIERCOLES", "JUEVES ", "VIERNES ", "SABADO " }
select(1)
if !netuse ("bco_aux",.f.,0)
f_mensaje("Imposible ingresar a la Base de Bancos Auxiliares",3)
return
else
if lastrec()=0
f_mensaje("No Existen Bancos Auxiliares Definidos",3)
return
endif
endif
path_ind({"bco_auxo"})
aBcoAux:=array(lastrec())
go top
i:=1
do while !eof()
aBcoAux[i]:=banco+" │ "+cod_bco
i++
skip
enddo
close
*…….. el prg sigue no creo necesario copiarlo entero
*********************************************************************
--
Has recibido este mensaje porque estás suscrito al grupo "[oohg]" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a oohg+uns...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/00ae01db7c36%2460c19860%242244c920%24%40yahoo.com.ar.
José M. C. Quintas
REQUEST HB_GT_WIN_DEFAULT
Se coloca pra iniciar como console, vai ter janela console.
José M. C. Quintas
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/000001db7ee1%246fbd2610%244f377230%24%40yahoo.com.ar.
Ayuda en Informatica
Hola José Gracias por la respuesta
Como podrás ver en los adjuntos está en el comienzo de modulo consola,
No cambia nada el error que tengo.
Saludos.
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/de1d5d22-8bf1-49cf-8137-688d40a74f22%40gmail.com.
José M. C. Quintas
Veja meu aplicativo híbrido
gtwvg, fivewin e hwgui no mesmo EXE, usando multithread.
Aqui
gtwvg, hwgui, oohg, e hmg3, mas não ficou compatível com HMG3.
Nenhuma janela console, porque não tem REQUEST HB_GT_WIN_DEFAULT
Mas tem REQUEST HB_GT_WVG_DEFAULT
José M. C. Quintas
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/001001db7f26%248c67cfa0%24a5376ee0%24%40yahoo.com.ar.
Ayuda en Informatica
José Gracias por tu respuesta.
Pero mi idea es ir al revés de lo que propones,
Tu ejemplo es de consola a gráfico, Y mi idea es ir de grafico a consola.
Porque hay módulos que no los tengo en modo gráfico y quería usarlos hasta que pueda migrarlos.
También quería mantenerme en oohg, pensé que no necesitaba irme a otra librería grafica.
Pero hasta ahora no encontré respuesta buscando en los foros de oohg o qpm, aunque vi que otros ya hicieron la misma pregunta.
Seguiré buscando.
Claudio Roldan
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/c01cb24f-3909-42ca-a25d-38b6821fe09c%40gmail.com.
José M. C. Quintas
Gráfico pra console, console pra gráfico, mesma coisa.
Use GTWVG e fica resolvido.
Não precisa usar recursos da GTWVG, apenas use igual console.
José M. C. Quintas
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/000001db8202%2409a95780%241cfc0680%24%40yahoo.com.ar.
José Quintas
José M. C. Quintas
José Quintas
Chame de onde quiser: hwgui, oohg, hmg3, hmg extended, fivewin, ou até mesmo de gtwvg
José Quintas
FUNCTION Main()
DEFINE WINDOW Form_1 ;
OBJ oForm_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'ooHG Demo - Menu with breakmenu clause' ;
MAIN
DEFINE STATUSBAR
STATUSITEM ""
KEYBOARD
DATE
END STATUSBAR
DEFINE MAIN MENU
POPUP 'PopUp1'
ITEM 'Item 1 of PopUp1' ;
ACTION hb_ThreadStart( { || TestConsole() } )
ITEM 'Item 2 of PopUp1' ;
ACTION hb_ThreadStart( { || TestConsole() } )
ITEM 'Exit' ;
ACTION oForm_1:Release()
END POPUP
END MENU
ON KEY ESCAPE ACTION oForm_1:Release()
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
RETURN Nil
PROCEDURE TestConsole()
LOCAL nValor := 0, GetList := {}
hb_gtReload( "WVG" )
SetMode(33,100)
CLS
READ
RETURN
PROCEDURE HB_GTSYS
REQUEST HB_GT_WVG_DEFAULT
RETURN
Aure
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/712a7ee5-73fc-4052-9c74-0def081e4ffa%40gmail.com.
Ayuda en Informatica
Hola Jose
Gracias nuevament por tu respuesta.
Al ejecutar tu ejemplo compilado con QPM, se genera una ventana consola junto con la ventana principal.
Si la cierro, tambien cierra la ventana principal.
Si uso las opciones del menú si abre una ventana consola nueva con el get programado.
Sabes como puedo solucionarlo?
Luego probaré implementarlo en sistema.
Saludos.
Claudio Roldan
De: oo...@googlegroups.com <oo...@googlegroups.com> En nombre de José Quintas
Enviado el: martes, 18 de febrero de 2025 17:46
Para: [oohg] <oo...@googlegroups.com>
Asunto: Re: [oohg] Consulta sistema hibrido
Com multithread melhor e mais fácil (desde que aplicativo permita)
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/7f3ce3ae-6ce9-4506-a477-a2fdb74b4f63n%40googlegroups.com.
José M. C. Quintas
Não uso QPM.
Não uso arquivos de LIB nenhuma.
Geralmente eles atrapalham.
A janela WVG/WVT só aparece se houver saída pra tela ou teclado como SAY, GET, CLS, Inkey().
Se for janela console mesmo, GTWIN, deve ser removida dos parâmetros, geralmente -gui resolve.
Se está sendo forçada GTWIN, precisa encontrar aonde faz isso.
Coloque uma mensagem inicial pra confirmar, não use rotina de
mensagem que dependa de wvg ou oohg.
#include "hbgtinfo.ch"
...
wapi_Msgbox( , "GT default " + hb_gtInfo( HB_GTI_VERSION ) )
Se aparecer GTWIN, precisa encontrar como remover.
Se aparecer GTWVG ou GTWVT, precisa encontrar se tem algum comando de saída de tela.
Se estiver usando GTWVG.HBC original, remova as linhas hreaders=
do gtwvg.hbc, isso causa problema, porque é adicionado a todos os
fontes.
José M. C. Quintas
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/002101db839e%2482517710%2486f46530%24%40yahoo.com.ar.