FiveTech Software tech support forums

Master:

Tampoco funcionó.

Saludos

Master:

No, no funca.


STATIC FUNCTION Salir( )
IF MsgNoYes( "Seguro desea salir de la aplicación ?", oApp:cAplicacion) // + " " + oApp:cVersion)
SET RESOURCES TO
WinHelp( GetHelpFile( ), 2 )
MEMORY( - 1 )
oApp:oCon:Close( )
oWindow:oBar:End()
CheckRes()
RETURN ( .T. )
ELSE
RETURN ( .F ...

Master:

Es una ventana

STATIC FUNCTION LaBarra( oWindow )
LOCAL oBarra
LOCAL oCursor

DEFINE CURSOR oCursor RESOURCE "Dedo"
DEFINE BUTTONBAR oBarra SIZE 45, 45 OF oWindow CURSOR oCursor 2007

oBarra:bClrGrad = { | lInvert | IF( ! lInvert, ;
{ { 0.50, nRGB( 178, 187, 202 ), nRGB( 137, 155 ...

Karinha:

El código que pegue es la función LaBarra que es parte del PRG Main, la primera
línea que mencionas (LABARRA(529)->(b) -> BAD(Malo)) esta a continuación.


IF aAblM7[01] .AND. aAblM7[04]
DEFINE BUTTON aBtns7[03] OF oBarra RESOURCE "Gps32" cBorde ;
ACTION SirseWin05c(oWindow) ;
MESSAGE ...

Kainha:

Gracias por el interes.

Este es el código


STATIC FUNCTION LaBarra( oWindow )
LOCAL oBarra
LOCAL oCursor

DEFINE CURSOR oCursor RESOURCE "Dedo"
DEFINE BUTTONBAR oBarra SIZE 45, 45 OF oWindow CURSOR oCursor 2007

oBarra:bClrGrad = { | lInvert | IF( ! lInvert, ;
{ { 0.50, nRGB( 178 ...

Amigos del foro, Feliz año nuevo.

Cómo evito todos estos mensajes?

Saludos


Master Antonio:

Este es el contenido de CheckRes.Txt


14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,-570093934,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(215)->MAIN(158)

14/12/2024 17:46:32: D:\Sirse30 ...

Master:

Muchas gracias

Saludos

Saludos al foro:

En la estructura de una tabla tengo el siguiente campo definido por omisión como Null


ENC_FDC Date NULL COMMENT 'Fecha de compra'," +;


Después se actualiza la tabla y el campo ya queda con el valor de una fecha que sustituye
al valor Null

He visto que existe AdoNull() y lo ...

Saludos al foro:

En la estructura de una tabla tengo el siguiente campo definido por omisión como Null


ENC_FDC Date NULL COMMENT 'Fecha de compra'," +;


Después se actualiza la tabla y el campo ya queda con el valor de una fecha que sustituye
al valor Null

He visto que existe AdoNull() y lo ...

Karinha:

Tengo la versión 2307 con Harbour

Lo siento, debido a que no encontré solución opté por eliminar el Folder y deje todo dentro de un dialogo.

Saludos

Master Antonio:

Este es el contenido de CheckRes.Txt


14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,-570093934,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(215)->MAIN(158)

14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,453317101,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(220)->MAIN ...

Up !

Up

Paisa:

Tengo ambos.

Saludos

Paisano y Leandro, Leandro y paisano:

Gracias a su orientación ha quedado resuelto.

Muchas gracias a ambos