I got this error:
Error description: Error BASE/1102 Argument error: UPPER
Args:
[ 1] = N 0
Stack Calls
===========
Called from: => UPPER( 0 )
Called from: .\source\classes\TGET.PRG => TGET:INITIATE( 1316 )
Called from: => __OBJSENDMSG( 0 )
Called from: => HB_EXECFROMARRAY( 0 )
Called from: .\source\function\HARBOUR.PRG => OSEND( 300 )
Called from: => HB_EXECFROMARRAY( 0 )
Called from: .\source\function\HARBOUR.PRG => ASEND( 278 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 871 )
This small test works fine in fwh1709
- Code: Select all Expand view
#include "FiveWin.ch"
function Main()
local oDlg, oCbx, oChk
local cStatus, cOutPort, cPrnName
local oGet := array(8)
local oSay := array(7)
local nModo := 1, nMT := 0, nML := 0, nMB := 0, nMR := 0
local nLinP := 60, lPreview := .f.
local cImpr := space(60)
local oBtnOk, oBtnCn, oBtnSetup
DEFINE DIALOG oDlg NAME "IMPRIMIR"
cOutPort := pad('',100)
cImpr := "Mi printer"
lIsLaser := .t.
lToFile := .t.
nMT := 0 ; nMB := 66 ; nModo := 2 ; nLinP := 66
REDEFINE SAY oCbx VAR cImpr ID 101 OF oDlg
REDEFINE BTNBMP oBtnSetup ID 150 OF oDlg ;
RESOURCE "PRINTER" NOBORDER TOOLTIP "Seleccionar Impresora"
cStatus := "En espera"
REDEFINE SAY oSay[1] VAR cStatus ID 102 OF oDlg UPDATE
REDEFINE GET oSay[2] VAR cOutPort ID 103 OF oDlg UPDATE PICTURE "@!"
REDEFINE SAY oSay[3] ID 21 OF oDlg PROMPT "Márgenes (en lineas)"
REDEFINE CHECKBOX lToFile ID 104 OF oDlg UPDATE ;
REDEFINE RADIO oGet[1] VAR nModo ID 105, 106 OF oDlg
REDEFINE GET oGet[2] VAR nLinP ID 107 OF oDlg PICTURE "999" ;
VALID nLinP <= 140
REDEFINE CHECKBOX oGet[3] VAR lPreview ID 113 OF oDlg UPDATE
REDEFINE GET oGet[4] VAR nMT ID 109 OF oDlg
REDEFINE GET oGet[5] VAR nML ID 110 OF oDlg
REDEFINE GET oGet[6] VAR nMR ID 111 OF oDlg
REDEFINE GET oGet[7] VAR nMB ID 112 OF oDlg
REDEFINE BUTTON oBtnOk ID 1 OF oDlg ACTION ( oDlg:End() ) ;
MESSAGE "Iniciar Impresion"
REDEFINE BUTTON oBtnCn ID 2 OF oDlg ACTION ( oDlg:End()) ;
MESSAGE "Cancelar Cambios" CANCEL
ACTIVATE DIALOG oDlg CENTERED
return nil
// RESOURCE
#include "..\include\winapi.ch"
#ifndef __64__
1 24 "\WinXP\WindowsXP.Manifest"
#endif
#ifdef __64__
1 24 "\WinXP\WindowsXP.Manifest64"
#endif
IMPRIMIR DIALOG DISCARDABLE 28, 31, 293, 185
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION
CAPTION "Control de Impresión"
FONT 8, "Arial"
{
CONTROL "Impresora", 10, "Button", BS_GROUPBOX, 2, 3, 289, 61
CONTROL "&Nombre :", 11, "Static", SS_RIGHT|WS_GROUP, 6, 17, 38, 12
CONTROL "", 101, "Edit", 0x00000000, 49, 17, 210, 12
CONTROL "", 150, "Button", 0x00000000, 267, 12, 15, 12
CONTROL "Estado :", 12, "Static", SS_RIGHT|WS_GROUP, 6, 32, 38, 12
CONTROL "", 102, "Static", 0x00000000, 49, 32, 49, 12
CONTROL "Puerto :", 13, "Static", SS_RIGHT|WS_GROUP, 6, 47, 38, 12
CONTROL "", 103, "Edit", ES_AUTOHSCROLL|WS_BORDER, 49, 47, 153, 12
CONTROL " Imprimir en &Archivo", 104, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 207, 47, 79, 12
CONTROL "", 14, "Button", BS_GROUPBOX, 2, 72, 289, 21
CONTROL "Modo &Texto (matriciales)", 105, "Button", BS_RADIOBUTTON|WS_TABSTOP, 10, 79, 134, 10
CONTROL "Modo &Gráfico (Laser/Inkjet)", 106, "Button", BS_RADIOBUTTON|WS_TABSTOP, 145, 79, 134, 11
CONTROL "", 15, "Button", BS_GROUPBOX, 2, 93, 131, 27
CONTROL "Líneas por hoja (max)", 16, "Static", WS_GROUP, 11, 103, 89, 10
CONTROL "", 107, "Edit", ES_RIGHT|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 105, 103, 22, 11
CONTROL "Previsualizar", 113, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 8, 131, 104, 12
CONTROL "Margenes", 21, "Button", BS_GROUPBOX, 148, 93, 143, 59
CONTROL "Sup", 17, "Static", WS_GROUP, 191, 104, 13, 10
CONTROL "", 109, "Edit", ES_RIGHT|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 212, 102, 30, 12
CONTROL "Izq", 18, "Static", WS_GROUP, 176, 120, 13, 10
CONTROL "", 110, "Edit", ES_RIGHT|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 193, 119, 30, 12
CONTROL "", 111, "Edit", ES_RIGHT|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 236, 119, 30, 12
CONTROL "Der", 19, "Static", WS_GROUP, 270, 120, 13, 10
CONTROL "Inf", 20, "Static", WS_GROUP, 194, 137, 13, 10
CONTROL "", 112, "Edit", ES_RIGHT|ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 212, 136, 30, 12
CONTROL "&Aceptar", IDOK, "Button", WS_TABSTOP, 174, 172, 46, 12
CONTROL "&Salir", IDCANCEL, "Button", WS_TABSTOP, 226, 172, 46, 12
CONTROL "No mostrar fecha/hora en la impresión", 115, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 146, 154, 146, 12
}
Any suggestion ?