FiveTech Software tech support forums

... function InsertFruits( oRs, aFruits )

local oCn := oRs:ActiveConnection
local nSave := oRs:AbsolutePosition
local nId, aList, aRows, cSql

CursorWait()

aList := {}
AEval( aFruits, { |c| AAdd( aList, { nil, c } ) } )

aRows := RsGetRows( oRs )
AEval( aRows ...

... function InsertFruit( oRs )

local nSave := oRs:AbsolutePosition
local nId := oRs:Fields( "id" ):Value
local cSql

PRIVATE cId := LTrim( Str( nId ) )
PRIVATE cFruit := PadR( "Lima", 15 )

if !MsgGet( "Fruit Name:", "At ...

... un Timer, ¿Puedo dar de alta un nuevo Timer?

Otra, ¿Cómo dar de alta un Timer que se ejecute una sola vez?

He visto que en la Clase Timer el '::nId' se actualiza cada vez que se hace un 'Activate' del Timer... entonces ¿Este valor va cambiando?

Nota: es que le estoy dando vueltas a como ...

... oI )
//oI:SetCheck(.T.)
? "Object Item: ", oI, ;
"Position into Menu Parent: ", oI:nPos, ;
"oItem cPrompt:", oI:cPrompt, ;
"oItem Id: ", oI:nId, ;
"Object Menu Parent of Item: ", oI:oMenu, ;
"Position of Menu Parent: ", oI:oMenu:nPos
? "Object Menu Principal: ", Valtype( GetaMenusAux()[ 1 ...

... before the checkbox is activated.
- `cVarName`: Variable name for the checkbox.
- **Returns**: Self (the `TCheckBox` instance).

2. **`ReDefine( nId, bSetGet, oWnd, nHelpId, bChange, bValid, nClrFore, nClrBack, cMsg, lUpdate, bWhen, cPrompt )`**
- **Description**: Redefines an existing checkbox ...

... The class inherits from `TControl`, which suggests it is a visual component that can be rendered on the screen.

---

### **DATA Members**

1. **`nID` (NUMERIC)**
A unique identifier for each instance of `TCalInfo`. It is auto-incremented using the `GetNewId()` method.

2. **`Cargo`**
A ...

... Layout of the button.
- `lGDIP`: Whether to use GDI+ for rendering.
- `lRelPix`: Whether to use relative pixel positioning.

2. **`ReDefine( nId, bAction, oWnd, nHelpId, cMsg, lUpdate, bWhen, bValid, cPrompt, lCancel, cBitmap, cPosText, cToolTip, lGDIP )`**
- **Description:** Redefines an ...

... multiline text.
- `nAddlStyle`: Additional styles for the button.
- `lRelPix`: Whether the coordinates are relative to pixels.

2. **`ReDefine( nId, bAction, oWnd, nHelpId, cMsg, lUpdate, bWhen, bValid, cPrompt, lCancel )`**
- **Description:** Redefines an existing button with new properties ...

... lDefault`: A flag indicating whether the button is the default button.
- **Returns:** The newly created `TBtnFlat` instance.

2. **`ReDefine( nId, bAction, oWnd, oFont, lUpdate, bWhen, bValid, cPrompt, lBorder, nClrText, nClrPane, lCancel, lDefault )`**
- **Description:** Redefines an ...

... A new `TBitmap` object.

#### **3. `ReDefine()`**
- **Purpose**: Redefines an existing bitmap object with new properties.
- **Parameters**:
- `nId`: Control ID.
- `cResName`, `cBmpFile`: Resource name or file path of the bitmap.
- `oWnd`: Parent window.
- `bLClicked`, `bRClicked`: Blocks for ...

... nCol`: Column position.
- `oWnd`: Window object.

30. **`Redefine()`**:
- **Description**: Redefines the button bar.
- **Parameters**:
- `nId`: ID.
- `oWnd`: Window object.
- `nWidth`: Width.
- `nHeight`: Height.
- `l2007`, `l2010`, `l2013`, `l2015`: Office style flags.
- `lBorder ...

... control.
- `nRow`, `nCol`: The position of the control.
- `nWidth`, `nHeight`: The size of the control.
- **Returns**: Self.

- **`ReDefine( nId, oWnd, cProgID )`**: Constructor method for redefining an existing ActiveX control.
- **Parameters**:
- `nId`: The control ID.
- `oWnd`: The ...

Try removing TRANSPARENT. That is allowing the background to be seen in the control.

REDEFINE GROUP [ <oGroup> ];
[ LABEL | PROMPT <cLabel> ];
[ ID <nId> ];
[ OF | WINDOW | DIALOG <oWnd> ];
[ COLOR <cClrFore> [, <nClrBack> ] ];
[ FONT <oFont> ];
[ TRANSPARENT ]

<nTop> , <nLeft> To specify the top ...

... es usando el comando
SHOW PROCESSLIST
Puede ser tambien que en algún corte quede una sesión abierta, la cual puedes matar con el comando
KILL nId (nId es el id que te muestra en show processlist)
Cuando cierras la sesión debes cerrar la conexión a la base de datos, con el metodo oServer:End ...

... es usando el comando
SHOW PROCESSLIST
Puede ser tambien que en algún corte quede una sesión abierta, la cual puedes matar con el comando
KILL nId (nId es el id que te muestra en show processlist)
Cuando cierras la sesión debes cerrar la conexión a la base de datos, con el metodo oServer:End ...