O arquivo sim é um formulário e existe sim na pasta onde estou compilando. Inclusive são 2: F_PARAMETROS1.FMG e F_PARAMETROS2.FMG.
Código: Selecionar todos
DEFINE WINDOW F_Parametros1 ;
AT 0,0 ;
WIDTH 530 ;
HEIGHT 450 ;
TITLE win_ansiToOem('Parâmetros') ; // harbour 3.4 6/1/21w
MODAL // ;
// NOSIZE NOSYSMENU NOMINIMIZE NOMAXIMIZE ;
// TITLE hb_ansiToOem('Parâmetros') ; // harbour 3.2 6/1/21w
// NOSIZE;
// NOMAXIMIZE;
// NOMINIMIZE;
// MAIN;
// child ;
DEFINE LABEL LCDEMPRESA
ROW 30
COL 10
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
// WIDTH 150
// HEIGHT 30
VALUE "Empresa"
END LABEL
DEFINE TEXTBOX TBmCDEMPRESA
ROW 30
COL 200
WIDTH 20
HEIGHT 30
// ITEMS {LoginData[1,1],LoginData[2,1],LoginData[3,1]}
// VALUE nLevel
NUMERIC .T.
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
MAXLENGTH 01
// TOOLTIP hb_ansitoOem("Digite aqui o número da empresa (1 a 9) pra usar no SiCCA v3.7") // harbour 3.2 6/1/21w
TOOLTIP win_ansitoOem("Digite aqui o número da empresa (1 a 9) pra usar no SiCCA v3.7") // harbour 3.4 6/1/21w
// ONCHANGE DoMethod("Login","PassWord","SetFocus")
// ONENTER { || fUSUA ( LOGIN.UserName.Value ) , MsgExclamation("usuário inválido") } // Nil
// ONENTER iif (( LOGIN.UserName.Value ) , DoMethod ( "Login","PassWord","SetFocus" ) , MsgExclamation ( "usuário inválido" )) // Nil
// ONENTER iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "usuário inválido" ) ) // Nil
// ONLOSTFOCUS { ||iif (fUSUA ( This.Value ) , Login.PassWord.SetFocus , This.Setfocus ) } // Nil
// // ONENTER { ||iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
// ONENTER { ||iif (fUSUA2 ( LOGIN.UserName.Value ) , {|| SetProperty ( "login" , "username2labe" , "value" , NOME_USU ) , Login.PassWord.SetFocus } , MsgExclamation ( "Usuário Inválido" ) ) }
ONENTER fCDEMPRESA ( F_Parametros1.TBmCDEMPRESA.Value,"F_Parametros1" )
// ONCHANGE SetProperty ( "F_Login" , "UserName2label" , "Value" , NOME_USU )
// ONLOSTFOCUS { ||iif (fUSUA ( F_Login.UserName.Value ) , F_Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
END TEXTBOX // COMBOBOX
DEFINE LABEL LNMEMPRESA
ROW 30
COL 240
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
// WIDTH 400
// HEIGHT 30
VALUE DCI10017->NMEMPRESA
END LABEL
DEFINE LABEL LNM_DIRETO
ROW 70
COL 10
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
// WIDTH 350
AUTOSIZE .T.
// HEIGHT 30
VALUE "Diretorio de Trabalho"
END LABEL
DEFINE TEXTBOX TBmNM_DIRETO
ROW 70
COL 200
WIDTH 300
HEIGHT 30
// ITEMS {LoginData[1,1],LoginData[2,1],LoginData[3,1]}
// VALUE nLevel
// NUMERIC .T.
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
MAXLENGTH 30
// TOOLTIP hb_ansitoOem("Digite aqui o local dos arquivos do SiCCA v3.7") // harbour 3.2 6/1/21w
TOOLTIP win_ansitoOem("Digite aqui o local dos arquivos do SiCCA v3.7") // harbour 3.4 6/1/21w
// ONCHANGE DoMethod("Login","PassWord","SetFocus")
// ONENTER { || fUSUA ( LOGIN.UserName.Value ) , MsgExclamation("usuário inválido") } // Nil
// ONENTER iif (( LOGIN.UserName.Value ) , DoMethod ( "Login","PassWord","SetFocus" ) , MsgExclamation ( "usuário inválido" )) // Nil
// ONENTER iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "usuário inválido" ) ) // Nil
// ONLOSTFOCUS { ||iif (fUSUA ( This.Value ) , Login.PassWord.SetFocus , This.Setfocus ) } // Nil
// // ONENTER { ||iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
// ONENTER { ||iif (fUSUA2 ( LOGIN.UserName.Value ) , {|| SetProperty ( "login" , "username2labe" , "value" , NOME_USU ) , Login.PassWord.SetFocus } , MsgExclamation ( "Usuário Inválido" ) ) }
ONENTER fNM_DIRETO ( F_Parametros1.TBmNM_DIRETO.Value,"F_Parametros1" )
// ONCHANGE SetProperty ( "F_Login" , "UserName2label" , "Value" , NOME_USU )
// ONLOSTFOCUS { ||iif (fUSUA ( F_Login.UserName.Value ) , F_Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
END TEXTBOX // COMBOBOX
DEFINE LABEL LDT_DIA
ROW 110
COL 10
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
// WIDTH 350
// HEIGHT 30
AUTOSIZE .T.
VALUE "Data do Dia"
END LABEL
DEFINE TEXTBOX TBmDT_DIA
ROW 110
COL 200
WIDTH 120
HEIGHT 30
// ITEMS {LoginData[1,1],LoginData[2,1],LoginData[3,1]}
// VALUE nLevel
// NUMERIC .T.
DATE .T.
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
MAXLENGTH 10
// TOOLTIP hb_ansitoOem("Digite aqui a data que você queira usar no Sistema.") // harbour 3.2 6/1/21w
TOOLTIP win_ansitoOem("Digite aqui a data que você queira usar no Sistema.") // harbour 3.4 6/1/21w
// ONCHANGE DoMethod("Login","PassWord","SetFocus")
// ONENTER { || fUSUA ( LOGIN.UserName.Value ) , MsgExclamation("usuário inválido") } // Nil
// ONENTER iif (( LOGIN.UserName.Value ) , DoMethod ( "Login","PassWord","SetFocus" ) , MsgExclamation ( "usuário inválido" )) // Nil
// ONENTER iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "usuário inválido" ) ) // Nil
// ONLOSTFOCUS { ||iif (fUSUA ( This.Value ) , Login.PassWord.SetFocus , This.Setfocus ) } // Nil
// // ONENTER { ||iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
// ONENTER { ||iif (fUSUA2 ( LOGIN.UserName.Value ) , {|| SetProperty ( "login" , "username2labe" , "value" , NOME_USU ) , Login.PassWord.SetFocus } , MsgExclamation ( "Usuário Inválido" ) ) }
ONENTER fDT_DIA ( F_Parametros1.TBmDT_DIA.Value,"F_Parametros1" )
// ONCHANGE SetProperty ( "F_Login" , "UserName2label" , "Value" , NOME_USU )
// ONLOSTFOCUS { ||iif (fUSUA ( F_Login.UserName.Value ) , F_Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
END TEXTBOX // COMBOBOX
DEFINE LABEL LVR_TX_JD
ROW 150
COL 10
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
// WIDTH 150
// HEIGHT 30
AUTOSIZE .T.
VALUE "Taxa de Juros ao Dia"
END LABEL
DEFINE TEXTBOX TBmVR_TX_JD
ROW 150
COL 200
WIDTH 90
HEIGHT 30
// ITEMS {LoginData[1,1],LoginData[2,1],LoginData[3,1]}
// VALUE nLevel
NUMERIC .T.
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
MAXLENGTH 09
// TOOLTIP hb_ansitoOem("Digite aqui o percentual de juros que você queira usar no Sistema.") // harbour 3.2 6/1/21w
TOOLTIP win_ansitoOem("Digite aqui o percentual de juros que você queira usar no Sistema.") // harbour 3.4 6/1/21w
// ONCHANGE DoMethod("Login","PassWord","SetFocus")
// ONENTER { || fUSUA ( LOGIN.UserName.Value ) , MsgExclamation("usuário inválido") } // Nil
// ONENTER iif (( LOGIN.UserName.Value ) , DoMethod ( "Login","PassWord","SetFocus" ) , MsgExclamation ( "usuário inválido" )) // Nil
// ONENTER iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "usuário inválido" ) ) // Nil
// ONLOSTFOCUS { ||iif (fUSUA ( This.Value ) , Login.PassWord.SetFocus , This.Setfocus ) } // Nil
// // ONENTER { ||iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
// ONENTER { ||iif (fUSUA2 ( LOGIN.UserName.Value ) , {|| SetProperty ( "login" , "username2labe" , "value" , NOME_USU ) , Login.PassWord.SetFocus } , MsgExclamation ( "Usuário Inválido" ) ) }
ONENTER fVR_TX_JD ( F_Parametros1.TBmVR_TX_JD.Value,"F_Parametros1" )
// ONCHANGE SetProperty ( "F_Login" , "UserName2label" , "Value" , NOME_USU )
// ONLOSTFOCUS { ||iif (fUSUA ( F_Login.UserName.Value ) , F_Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
END TEXTBOX // COMBOBOX
DEFINE LABEL LQT_DIADES
ROW 190
COL 10
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
// WIDTH 150
// HEIGHT 30
AUTOSIZE .T.
VALUE "Dias para Desconto"
END LABEL
DEFINE TEXTBOX TBmQT_DIADES
ROW 190
COL 200
WIDTH 30
HEIGHT 30
// ITEMS {LoginData[1,1],LoginData[2,1],LoginData[3,1]}
// VALUE nLevel
NUMERIC .T.
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
MAXLENGTH 02
// TOOLTIP hb_ansitoOem("Digite aqui o percentual de descontos que você queira usar no Sistema.") // harbour 3.2 6/1/21w
TOOLTIP win_ansitoOem("Digite aqui o percentual de descontos que você queira usar no Sistema.") // harbour 3.4 6/1/21w
// ONCHANGE DoMethod("Login","PassWord","SetFocus")
// ONENTER { || fUSUA ( LOGIN.UserName.Value ) , MsgExclamation("usuário inválido") } // Nil
// ONENTER iif (( LOGIN.UserName.Value ) , DoMethod ( "Login","PassWord","SetFocus" ) , MsgExclamation ( "usuário inválido" )) // Nil
// ONENTER iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "usuário inválido" ) ) // Nil
// ONLOSTFOCUS { ||iif (fUSUA ( This.Value ) , Login.PassWord.SetFocus , This.Setfocus ) } // Nil
// // ONENTER { ||iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
// ONENTER { ||iif (fUSUA2 ( LOGIN.UserName.Value ) , {|| SetProperty ( "login" , "username2labe" , "value" , NOME_USU ) , Login.PassWord.SetFocus } , MsgExclamation ( "Usuário Inválido" ) ) }
ONENTER fQT_DIADES ( F_Parametros1.TBmQT_DIADES.Value,"F_Parametros1" )
// ONCHANGE SetProperty ( "F_Login" , "UserName2label" , "Value" , NOME_USU )
// ONLOSTFOCUS { ||iif (fUSUA ( F_Login.UserName.Value ) , F_Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
END TEXTBOX // COMBOBOX
DEFINE LABEL LQT_DIATOL
ROW 230
COL 10
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
// WIDTH 150
// HEIGHT 30
AUTOSIZE .T.
VALUE "Dias de Tolerƒncia"
END LABEL
DEFINE TEXTBOX TBmQT_DIATOL
ROW 230
COL 200
WIDTH 30
HEIGHT 30
// ITEMS {LoginData[1,1],LoginData[2,1],LoginData[3,1]}
// VALUE nLevel
NUMERIC .T.
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
MAXLENGTH 03
// TOOLTIP hb_ansitoOem("Digite aqui a quantidade de dias de tolerância sem juros que você queira usar no Sistema.") // harbour 3.2 6/1/21w
TOOLTIP win_ansitoOem("Digite aqui a quantidade de dias de tolerância sem juros que você queira usar no Sistema.") // harbour 3.4 6/1/21w
// ONCHANGE DoMethod("Login","PassWord","SetFocus")
// ONENTER { || fUSUA ( LOGIN.UserName.Value ) , MsgExclamation("usuário inválido") } // Nil
// ONENTER iif (( LOGIN.UserName.Value ) , DoMethod ( "Login","PassWord","SetFocus" ) , MsgExclamation ( "usuário inválido" )) // Nil
// ONENTER iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "usuário inválido" ) ) // Nil
// ONLOSTFOCUS { ||iif (fUSUA ( This.Value ) , Login.PassWord.SetFocus , This.Setfocus ) } // Nil
// // ONENTER { ||iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
// ONENTER { ||iif (fUSUA2 ( LOGIN.UserName.Value ) , {|| SetProperty ( "login" , "username2labe" , "value" , NOME_USU ) , Login.PassWord.SetFocus } , MsgExclamation ( "Usuário Inválido" ) ) }
ONENTER fQT_DIATOL ( F_Parametros1.TBmQT_DIATOL.Value,"F_Parametros1" )
// ONCHANGE SetProperty ( "F_Login" , "UserName2label" , "Value" , NOME_USU )
// ONLOSTFOCUS { ||iif (fUSUA ( F_Login.UserName.Value ) , F_Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
END TEXTBOX // COMBOBOX
DEFINE LABEL LDS_MENSAG
ROW 270
COL 10
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
// WIDTH 150
// HEIGHT 30
AUTOSIZE .T.
VALUE "Mensagem"
END LABEL
DEFINE TEXTBOX TBmDS_MENSAG
ROW 270
COL 200
WIDTH 300
HEIGHT 30
// ITEMS {LoginData[1,1],LoginData[2,1],LoginData[3,1]}
// VALUE nLevel
// NUMERIC .T.
FONTNAME "Arial"
FONTSIZE 14
FONTBOLD .T.
MAXLENGTH 30
// TOOLTIP hb_ansitoOem("Digite aqui uma mensagem que você queira usar no Sistema.") // harbour 3.2 6/1/21w
TOOLTIP win_ansitoOem("Digite aqui uma mensagem que você queira usar no Sistema.") // harbour 3.4 6/1/21w
// ONCHANGE DoMethod("Login","PassWord","SetFocus")
// ONENTER { || fUSUA ( LOGIN.UserName.Value ) , MsgExclamation("usuário inválido") } // Nil
// ONENTER iif (( LOGIN.UserName.Value ) , DoMethod ( "Login","PassWord","SetFocus" ) , MsgExclamation ( "usuário inválido" )) // Nil
// ONENTER iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "usuário inválido" ) ) // Nil
// ONLOSTFOCUS { ||iif (fUSUA ( This.Value ) , Login.PassWord.SetFocus , This.Setfocus ) } // Nil
// // ONENTER { ||iif (fUSUA ( LOGIN.UserName.Value ) , Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
// ONENTER { ||iif (fUSUA2 ( LOGIN.UserName.Value ) , {|| SetProperty ( "login" , "username2labe" , "value" , NOME_USU ) , Login.PassWord.SetFocus } , MsgExclamation ( "Usuário Inválido" ) ) }
ONENTER fDS_MENSAG ( F_Parametros1.TBmDS_MENSAG.Value,"F_Parametros1" )
// ONCHANGE SetProperty ( "F_Login" , "UserName2label" , "Value" , NOME_USU )
// ONLOSTFOCUS { ||iif (fUSUA ( F_Login.UserName.Value ) , F_Login.PassWord.SetFocus , MsgExclamation ( "Usuário Inválido" ) ) } // Nil
END TEXTBOX // COMBOBOX
// @ 350,230 BUTTON Button_1 CAPTION "&Ok" WIDTH 50 HEIGHT 50 ACTION DOMETHOD ( "F_Parametros" , "release" ) // fButton_1() // MsgInfo('OK') PICTURE "button.bmp"
@ 350,230 BUTTON Button_1 CAPTION "&Ok" WIDTH 50 HEIGHT 50 ACTION fOK_GRAVA_MASTER() // fButton_1() // MsgInfo('OK') PICTURE "button.bmp"
// @ 400,200 BUTTON Button_2 PICTURE "button.bmp" WIDTH 50 HEIGHT 50 ACTION MsgInfo('Cancelar')
END WINDOW