Search found 249 matches

by VitalJavier
Tue Apr 08, 2025 5:20 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Abrir db-Combo Automatico
Replies: 2
Views: 403

Re: Abrir db-Combo Automatico

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 ...
by VitalJavier
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
by VitalJavier
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:

Code: Select all | Expand

	cPrint := RETORNA_SYSP("IMPRESORA_REPORTES")	
	PRINT oPrn TO cPrint		
	ENDPRINT
Puse eso antes de generar el Reporte
Y listo, imprimo los tickets y después el reporte y todo bien

Saludos.
by VitalJavier
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 ...
by VitalJavier
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 ...
by VitalJavier
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:

Code: Select all | Expand

oReporte:aColumns[02]:aTitle[1] := {|| oReporte:Say(02,"         Q. 1a") }
Asi el encabezado del Primer Renglon en la 2da Columna quedo centrado.

Saludos.
by VitalJavier
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.
by VitalJavier
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 ...
by VitalJavier
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.
by VitalJavier
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
Image
[/img]
by VitalJavier
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.
by VitalJavier
Sat Sep 07, 2024 7:25 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Alinear Renglon
Replies: 2
Views: 627

Alinear Renglon

Saludos a todos
Alguien sabe como puedo alinear en un renglon en xBrowse
Que quede centrado.

Image

Si ven la imagen, esta alineado hacia arriba, lo que quiero es que quede centrado.

Saludos.
by VitalJavier
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??
by VitalJavier
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 ...