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 ...
Search found 26 matches
- Thu Dec 12, 2024 5:54 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Fecha y Hora desde la Nube
- Replies: 5
- Views: 409
- Tue Nov 12, 2024 5:59 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Open a network folder
- Replies: 10
- Views: 1604
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: 761
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: 1472
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: 465
- Thu Sep 05, 2024 8:02 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: ajustar una imagen en un dialogo como background
- Replies: 15
- Views: 2333
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: 2333
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: 2333
Re: ajustar una imagen en un dialogo como background
Buen dia
[/img]
Algo Asi ??
[/img]
Algo Asi ??
- Wed Jul 31, 2024 8:39 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Algo con AGGR_SUM
- Replies: 2
- Views: 824
Re: Algo con AGGR_SUM
Gracias
Funciona bien.
Funciona bien.
- Tue Jul 30, 2024 10:10 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Algo con AGGR_SUM
- Replies: 2
- Views: 824
Algo con AGGR_SUM
Estoy Haciendo esto en un Browse
oBrow2:aCols[02]:bStrData := {|| IIF(FACTURADET->PIEZAS>0,FACTURADET->PIEZAS,FACTURADET->CAJAS)}
oBrow2:aCols[03]:bStrData := {|| IIF(FACTURADET->PRECIOP>0,FACTURADET->PRECIOP,FACTURADET->PRECIOC)}
oBrow2:aCols[04]:bStrData := {|| IIF(FACTURADET->IMPORTEP>0 ...
oBrow2:aCols[02]:bStrData := {|| IIF(FACTURADET->PIEZAS>0,FACTURADET->PIEZAS,FACTURADET->CAJAS)}
oBrow2:aCols[03]:bStrData := {|| IIF(FACTURADET->PRECIOP>0,FACTURADET->PRECIOP,FACTURADET->PRECIOC)}
oBrow2:aCols[04]:bStrData := {|| IIF(FACTURADET->IMPORTEP>0 ...
- Tue Jul 30, 2024 9:59 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Algo con AGGR_SUM
- Replies: 1
- Views: 283
Algo con AGGR_SUM
Estoy Haciendo esto en un Browse
oBrow2:aCols[02]:bStrData := {|| IIF(FACTURADET->PIEZAS>0,FACTURADET->PIEZAS,FACTURADET->CAJAS)}
oBrow2:aCols[03]:bStrData := {|| IIF(FACTURADET->PRECIOP>0,FACTURADET->PRECIOP,FACTURADET->PRECIOC)}
oBrow2:aCols[04]:bStrData := {|| IIF(FACTURADET->IMPORTEP>0 ...
oBrow2:aCols[02]:bStrData := {|| IIF(FACTURADET->PIEZAS>0,FACTURADET->PIEZAS,FACTURADET->CAJAS)}
oBrow2:aCols[03]:bStrData := {|| IIF(FACTURADET->PRECIOP>0,FACTURADET->PRECIOP,FACTURADET->PRECIOC)}
oBrow2:aCols[04]:bStrData := {|| IIF(FACTURADET->IMPORTEP>0 ...
- Mon Jul 29, 2024 3:44 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Propuesta para que hagan un curso virtual FW
- Replies: 302
- Views: 45060
- Fri Jul 26, 2024 6:50 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Propuesta para que hagan un curso virtual FW
- Replies: 302
- Views: 45060
Re: Propuesta para que hagan un curso virtual FW
+1
Me interesa "Web"
Trabajo con ADS
Me interesa "Web"
Trabajo con ADS
- Mon Apr 29, 2024 7:49 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: xBrowse lento al Mostrar
- Replies: 1
- Views: 339
xBrowse lento al Mostrar
Que tal a Todos
Alguien le pasa esto?
Se pone lento al pasar a xBrowse, ya sea un filtro o un SELECT
Cuando el resultado son muchos registros.
SELECT 0
ADSCreateSQLStatement("ABUSCA",3)
cSQL := "SELECT {static}
DOCUMENTO,NUMERO,FECHA,ENT_SAL,CAJAS,PIEZAS,PRECIO,IMPORTE,TOT_SALDO_CJA,TOT ...
Alguien le pasa esto?
Se pone lento al pasar a xBrowse, ya sea un filtro o un SELECT
Cuando el resultado son muchos registros.
SELECT 0
ADSCreateSQLStatement("ABUSCA",3)
cSQL := "SELECT {static}
DOCUMENTO,NUMERO,FECHA,ENT_SAL,CAJAS,PIEZAS,PRECIO,IMPORTE,TOT_SALDO_CJA,TOT ...
- Sat Apr 27, 2024 8:06 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Asignar impresora por terminal?
- Replies: 16
- Views: 2272
Re: Asignar impresora por terminal?
Armando, que tal.
Oye yo tengo 2 impresoras en una caja de cobro
1.- Grande para un tipo de notas
2.- Una pequeña de tickets para unos comprobantes que se dan
Asi imprimo sobre la impresora que esta por default determinada
sPrinterName := PRNGETNAME() <<= Esto lo pongo al inicio del programa para ...
Oye yo tengo 2 impresoras en una caja de cobro
1.- Grande para un tipo de notas
2.- Una pequeña de tickets para unos comprobantes que se dan
Asi imprimo sobre la impresora que esta por default determinada
sPrinterName := PRNGETNAME() <<= Esto lo pongo al inicio del programa para ...