Antonio, gracias por tu tiempo
Asi lo manejo y puse lo que me dijiste, pero no funciona
REDEFINE DBCOMBO oGet[02] Var oDbf:NOMBRE ID 102 OF oDlg1 ALIAS "MARCAS" ItemField "DESCRIPCION" ListField "DESCRIPCION" UPDATE
oGet[02]:oFont := aLetras[03]
oGet[02]:bKeyChar := { || If( Len( oGet[02 ...
Search found 249 matches
- Tue Apr 08, 2025 5:20 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Abrir db-Combo Automatico
- Replies: 2
- Views: 403
- Sat Apr 05, 2025 7:03 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Abrir db-Combo Automatico
- Replies: 2
- Views: 403
Abrir db-Combo Automatico
Buen día
Saludando todos
Estoy ocupando un DbCombo y necesito hacer algo que me pidieron
Que en la lectura del combo, al llevar 3 letras/numero tecleados
el combo se abra automáticamente
Se podrá??
Saludos a todos
Saludando todos
Estoy ocupando un DbCombo y necesito hacer algo que me pidieron
Que en la lectura del combo, al llevar 3 letras/numero tecleados
el combo se abra automáticamente
Se podrá??
Saludos a todos
- Fri Apr 04, 2025 5:02 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Se pierden los datos de Impresora
- Replies: 5
- Views: 486
Re: Se pierden los datos de Impresora
Cesar, parece que lo resolví asi:
Puse eso antes de generar el Reporte
Y listo, imprimo los tickets y después el reporte y todo bien
Saludos.
Code: Select all | Expand
cPrint := RETORNA_SYSP("IMPRESORA_REPORTES")
PRINT oPrn TO cPrint
ENDPRINT
Y listo, imprimo los tickets y después el reporte y todo bien
Saludos.
- Fri Apr 04, 2025 4:44 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Se pierden los datos de Impresora
- Replies: 5
- Views: 486
Re: Se pierden los datos de Impresora
Para imprimir en la primera impresora:
cPrint := RETORNA_SYSP("IMPRESORA_CODIGOS")
PRINT oPrn TO cPrint
IF Empty( oPrn:hDC )
MsgStop("Impresora de Etiquetas NO se Encuentra Lista","Alto..")
ENDPRINT
RETURN .T.
ENDIF
Select "MICODE"
DbGoTop()
DO WHILE !Eof()
Ren_ := .1
PAGE
oPrn ...
cPrint := RETORNA_SYSP("IMPRESORA_CODIGOS")
PRINT oPrn TO cPrint
IF Empty( oPrn:hDC )
MsgStop("Impresora de Etiquetas NO se Encuentra Lista","Alto..")
ENDPRINT
RETURN .T.
ENDIF
Select "MICODE"
DbGoTop()
DO WHILE !Eof()
Ren_ := .1
PAGE
oPrn ...
- Fri Apr 04, 2025 4:16 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Se pierden los datos de Impresora
- Replies: 5
- Views: 486
Se pierden los datos de Impresora
Hola, buen dia a Todos
Estoy teniendo este problema
Primero imprimo sobre una impresora de tickets (Todo Bien)
Después quiero imprimir sobre una impresora de ancho normal y
me sigue tomando el ancho de la impresora de tickets.
Para Los Tickets utilizo PRINT
Para la impresora de ancho normal, estoy ...
Estoy teniendo este problema
Primero imprimo sobre una impresora de tickets (Todo Bien)
Después quiero imprimir sobre una impresora de ancho normal y
me sigue tomando el ancho de la impresora de tickets.
Para Los Tickets utilizo PRINT
Para la impresora de ancho normal, estoy ...
- Thu Feb 06, 2025 3:53 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Cambiar el Titulo
- Replies: 2
- Views: 696
Re: Cambiar el Titulo
Marcelo, Gracias.
Funciono Asi:
Asi el encabezado del Primer Renglon en la 2da Columna quedo centrado.
Saludos.
Funciono Asi:
Code: Select all | Expand
oReporte:aColumns[02]:aTitle[1] := {|| oReporte:Say(02," Q. 1a") }
Saludos.
- Tue Feb 04, 2025 7:56 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Cambiar el Titulo
- Replies: 2
- Views: 696
Cambiar el Titulo
Hola a Todos
Estoy buscando como cambiar el Titulo de una Columna de un Reporte
Tengo esto:
Column oCol[02] Title " Q. 1a","Fecha" Data COLECTAR->FEC1 SIZE 7 SHADOW
Pero en un momento dado quiero cambiar el titulo:
Ya lo busque, pero no encuentro.
alguien ya lo tiene, Gracias.
Estoy buscando como cambiar el Titulo de una Columna de un Reporte
Tengo esto:
Column oCol[02] Title " Q. 1a","Fecha" Data COLECTAR->FEC1 SIZE 7 SHADOW
Pero en un momento dado quiero cambiar el titulo:
Ya lo busque, pero no encuentro.
alguien ya lo tiene, Gracias.
- Thu Dec 12, 2024 5:54 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Fecha y Hora desde la Nube
- Replies: 5
- Views: 1296
Re: Fecha y Hora desde la Nube
Le dije a copilot que tenia varios errores
y termino en esto y funciono:
function Ret_Date_Web()
LOCAL cGeoUrl := "http://ip-api.com/json/"
LOCAL cGeoResponse := HttpGet(cGeoUrl)
LOCAL cCity := ExtractField(cGeoResponse, "timezone")
LOCAL cUrl := "http://worldtimeapi.org/api/timezone ...
y termino en esto y funciono:
function Ret_Date_Web()
LOCAL cGeoUrl := "http://ip-api.com/json/"
LOCAL cGeoResponse := HttpGet(cGeoUrl)
LOCAL cCity := ExtractField(cGeoResponse, "timezone")
LOCAL cUrl := "http://worldtimeapi.org/api/timezone ...
- Tue Nov 12, 2024 5:59 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Open a network folder
- Replies: 10
- Views: 2165
Re: Open a network folder
A mi me funciona:
ShellExecute(0,"Open","\\192.168.16.237\Win\WinAA\admin.exe","1",,3)
Saludos.
ShellExecute(0,"Open","\\192.168.16.237\Win\WinAA\admin.exe","1",,3)
Saludos.
- Tue Nov 12, 2024 5:33 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: draw lines on xbrowse
- Replies: 6
- Views: 1238
Re: draw lines on xbrowse
Hola, buen dia
Puedes hacerlo por colores

[/img]
Puedes hacerlo por colores

[/img]
- Fri Sep 13, 2024 4:04 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Factura del webinar
- Replies: 14
- Views: 2776
Re: Factura del webinar
la mayoría no necesitamos factura.
Mejor que te contacten quien SI necesita factura.
Saludos.
Mejor que te contacten quien SI necesita factura.
Saludos.
- Sat Sep 07, 2024 7:25 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Alinear Renglon
- Replies: 2
- Views: 627
- Thu Sep 05, 2024 8:02 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: ajustar una imagen en un dialogo como background
- Replies: 15
- Views: 3028
Re: ajustar una imagen en un dialogo como background
Lo que quieres es hacer transparentes los GETS para que se vea la imagen de fondo??
- Thu Sep 05, 2024 4:43 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: ajustar una imagen en un dialogo como background
- Replies: 15
- Views: 3028
Re: ajustar una imagen en un dialogo como background
Asi lo hago.
FUNCTION ClaveAcceso
LOCAL oDlgEntra, lEntra := .F., oGet := Array(2)
PRIVATE oTimAcc
aGENERAL[01] := "USUARIO"
aGENERAL[02] := "CONTRASEÑA"
DEFINE BitMap oBmp1 FILE aGeneral[08]+"LOGO_EMPRESA.BMP"
DEFINE DIALOG oDlgEntra RESOURCE "SYS_ENTRA" TRANSPARENT
oDlgEntra:lHelpIcon ...
FUNCTION ClaveAcceso
LOCAL oDlgEntra, lEntra := .F., oGet := Array(2)
PRIVATE oTimAcc
aGENERAL[01] := "USUARIO"
aGENERAL[02] := "CONTRASEÑA"
DEFINE BitMap oBmp1 FILE aGeneral[08]+"LOGO_EMPRESA.BMP"
DEFINE DIALOG oDlgEntra RESOURCE "SYS_ENTRA" TRANSPARENT
oDlgEntra:lHelpIcon ...
- Thu Sep 05, 2024 3:46 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: ajustar una imagen en un dialogo como background
- Replies: 15
- Views: 3028
Re: ajustar una imagen en un dialogo como background
Buen dia

[/img]
Algo Asi ??

[/img]
Algo Asi ??