Erro repentino!

[marcos.gurupi]

Caros d uma hora pra outra quando teclo enter para navegar entre gets em um dialog estah apresentando este erro. Alguem sabe dizer do q se trata. Estou usando xharbour 1.0.0 e hwgui 2.17.

Código: Selecionar todos

Error BASE/1066  Argument error: conditional
Called from PESQUISA.PRG->GETSKIP(190)
Called from hdialog.prg->DLGCOMMAND(425)
Called from hdialog.prg->(b)(_INITSTATICS00003)(0)
Called from hdialog.prg->HDIALOG:ONEVENT(218)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from hdialog.prg->HDIALOG:ACTIVATE(173)
Called from CLIENTES.PRG->INCCLI(707)
Called from CLIENTES.PRG->(b)CLIENTES(44)
Called from hcontrol.prg->HBUTTON:ONCLICK(705)
Called from hcontrol.prg->(b)HBUTTON:NEW(663)
Called from hdialog.prg->DLGCOMMAND(450)
Called from hdialog.prg->(b)(_INITSTATICS00003)(0)
Called from hdialog.prg->HDIALOG:ONEVENT(218)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from hdialog.prg->HDIALOG:ACTIVATE(173)
Called from CLIENTES.PRG->CLIENTES(197)
Called from PDVNET.PRG->(b)MAIN(189)
Called from hownbtn.prg->HOWNBUTTON:MUP(351)
Called from hownbtn.prg->HOWNBUTTON:ONEVENT(138)
Called from ->HWG_ACTIVATEMAINWINDOW(0)
Called from hwindow.prg->HMAINWINDOW:ACTIVATE(260)
Called from PDVNET.PRG->MAIN(262)

Data e Hora........: 17/08/2009 - 19:11:27
Empresa............: empresa
Sistema/Atualizacao: sistema
Usuario do Sistema.: Marcos Roberto
Nome do Executavel.: C:\PROGS\PRINCIPAL\harbour\LCDIST\PDVnet\PDVNET.EXE
Nome do Micro......: NETSERVICE - Nome Usuario.: Marcos Roberto
Memoria Disponivel.: 2097151 - Espaço em Disco....: 141261598720
Pasta de Diretorio.: PROGS\PRINCIPAL\harbour\LCDIST\PDVnet
Sistema Operacional: Windows XP Professional 5.01.2600 Service Pack 3
Versão xHarbour..: HwGUI 2.17 xHarbour build 1.0.0 Intl. (SimpLex)

[sygecom]

Estranho esse erro, de mais detalhes do que esta acontecendo, post exemplos de uso que eu possa compialr aqui e simular o problema.Sua Lib esta atualizada com da CVS ?

Aqui não acontece esse problema.

[marcos.gurupi]

Minha LIB n estah atualizada. Eu uso a sua LIB (q vc deixou disponibilizado para download com o xhb) xhb 1.0.0 + hwgui 2.17 O mais estranho q ateh o codigo q foi gerado pelo designer tb apresenta o erro quando teclo enter entre os GET. Segue o exemplo abaixo.

O Codigo:

Código: Selecionar todos

Function InutilizarNFe()

LOCAL AREANT:=SELECT()
LOCAL oDlgInu

Private vCNPJ := EMPRESA->CGC, vJustificativa := "", vAno := 10, vModelo := "55", vSerie := "1", vNoInicial := SPACE(10) , vNoFinal := SPACE(10)
Private oGroup1, oLabel1, oCNPJ, oLabel2, oJustificativa, oLabel3, oAno ;
        , oLabel4, oModelo, oLabel5, oSerie, oLabel6, oNoInicial, oLabel7, oNoFinal ;
        , oButton1
Private iAno:={ "2000", "2001", "2002", "2003", "2004","2005", "2006", "2007", "2008", "2009",;
                "2010", "2011", "2012", "2013", "2014","2015", "2016", "2017", "2018", "2019" }
vCnpj:=StrTran(vCnpj,".","")
vCnpj:=StrTran(vCnpj,"/","")
vCnpj:=StrTran(vCnpj,"-","")
INIT DIALOG oDlgInu CLIPPER NOEXIT TITLE "Inutilizar NF-e" AT 383,143 SIZE 451,319 ;
        FONT HFont():Add( 'Courier New',0,-13,400,,,)  ;
     STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER 

   @ 20,23 GROUPBOX oGroup1 CAPTION "Dados da NF-e"  SIZE 415,218   

   @ 35,30 SAY oLabel1 CAPTION "CNPJ.........:" OF oGroup1  SIZE 115,19 FONT HFont():Add( 'Courier New',0,-13,400,,,)
   @ 35,55 SAY oLabel2 CAPTION "Justificativa:" OF oGroup1  SIZE 115,19 FONT HFont():Add( 'Courier New',0,-13,400,,,)
   @ 35,80 SAY oLabel3 CAPTION "Ano..........:" OF oGroup1  SIZE 115,19 FONT HFont():Add( 'Courier New',0,-13,400,,,)
   @ 35,105 SAY oLabel4 CAPTION "Modelo.......:" OF oGroup1  SIZE 116,19 FONT HFont():Add( 'Courier New',0,-13,400,,,)
   @ 35,130 SAY oLabel5 CAPTION "Serie........:" OF oGroup1  SIZE 116,19 FONT HFont():Add( 'Courier New',0,-13,400,,,)
   @ 35,155 SAY oLabel6 CAPTION "No.Inicial...:" OF oGroup1  SIZE 116,19 FONT HFont():Add( 'Courier New',0,-13,400,,,)
   @ 35,180 SAY oLabel7 CAPTION "No.Final.....:" OF oGroup1  SIZE 116,19 FONT HFont():Add( 'Courier New',0,-13,400,,,)

   @ 155,30 GET oCNPJ VAR vCNPJ OF oGroup1 SIZE 158,20   PICTURE '@R 99.999.999/9999-99'   ;
        FONT HFont():Add( 'Courier New',0,-13,400,,,); 
        TOOLTIP ""
   @ 155,55 GET oJustificativa VAR vJustificativa OF oGroup1 SIZE 222,20 ;
        STYLE ES_AUTOHSCROLL   PICTURE '@!' MAXLENGTH 130   ;
        FONT HFont():Add( 'Courier New',0,-13,400,,,); 
        TOOLTIP ""
   @ 155,80 GET COMBOBOX oAno VAR vAno  ITEMS iAno OF oGroup1  ;
        SIZE 80,20   
   @ 155,105 GET oModelo VAR vModelo OF oGroup1 SIZE 51,20 ;
        STYLE ES_AUTOHSCROLL   PICTURE '@!' MAXLENGTH 4   ;
        FONT HFont():Add( 'Courier New',0,-13,400,,,); 
        TOOLTIP ""
   @ 155,130 GET oSerie VAR vSerie OF oGroup1 SIZE 51,20 ;
        STYLE ES_AUTOHSCROLL   PICTURE '@!' MAXLENGTH 4   ;
        FONT HFont():Add( 'Courier New',0,-13,400,,,); 
        TOOLTIP ""
   @ 155,155 GET oNoInicial VAR vNoInicial OF oGroup1 SIZE 134,20 ;
        STYLE ES_AUTOHSCROLL   PICTURE '@!' MAXLENGTH 10   ;
        FONT HFont():Add( 'Courier New',0,-13,400,,,); 
        TOOLTIP ""
   @ 155,180 GET oNoFinal VAR vNoFinal OF oGroup1 SIZE 134,20 ;
        STYLE ES_AUTOHSCROLL   PICTURE '@!' MAXLENGTH 10   ;
        FONT HFont():Add( 'Courier New',0,-13,400,,,); 
        TOOLTIP ""

   @ 161,263 BUTTON oButton1 CAPTION "Enviar Comando" ON CLICK {Inunfe(),EndDialog()} SIZE 125,30 STYLE WS_TABSTOP  

   ACTIVATE DIALOG oDlgInu
   RETURN oDlgInu:lresult

O erro:

Código: Selecionar todos

Error BASE/1073  Argument error: <
Called from hedit.prg->GETSKIP(1097)
Called from hdialog.prg->DLGCOMMAND(425)
Called from hdialog.prg->(b)(_INITSTATICS00003)(0)
Called from hdialog.prg->HDIALOG:ONEVENT(218)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from hdialog.prg->HDIALOG:ACTIVATE(173)
Called from NFeletronica.prg->INUTILIZARNFE(284)
Called from PDVTEF.PRG->(b)MAIN(474)
Called from hwindow.prg->ONCOMMAND(514)
Called from hwindow.prg->(b)HMAINWINDOW(177)
Called from hwindow.prg->HMAINWINDOW:ONEVENT(272)
Called from ->HWG_ACTIVATEMAINWINDOW(0)
Called from hwindow.prg->HMAINWINDOW:ACTIVATE(260)
Called from PDVTEF.PRG->MAIN(493)

HwGUI 2.17 xHarbour build 1.0.0 Intl. (SimpLex)
Date:23/08/2009
Time:20:09:02

[esbasso]

atualiza a tua lib
use esta para xharbour 1.0
www.engersoft.com.br\download\util\hwguilibxh10.zip

nesta LIB é possivel popular uma combobox com uma tabela e tambem passar vetores com dois valores

@ 2,2 GET COMBOBOX oCidade VAR vCombo2 ITEMS {"cidades->cidade","codcid"} TEXT ;
SIZE 292,22 DISPLAYCOUNT 15 COLUMNWIDTH 450;
STYLE CBS_UPPERCASE+WS_VSCROLL

@ 2,2 GET COMBOBOX oSexo VAR vCombo2 ITEMS {{"Masculino","M"},{"Feminino","F"}} TEXT ;
SIZE 292,22 DISPLAYCOUNT 15 COLUMNWIDTH 450;
STYLE CBS_UPPERCASE+WS_VSCROLL

ocombo:value retorna o primeiro item do vetor, "MASCULINO"
ocombo:valueBound retorna o segundo valor "M"

mesma coisa na combo cidades

[sygecom]

Olá Marcos,
Procure acompanhar a Hwgui da CVS, lá é mantida a versão mais atual e esta muito boa para uso em Produção. Venho usando ela a tempos da CVS e sem problemas, unica que todos mundo aconselha a não usar é o xHarbour da CVS que nesse caso teria que se usar a versão estavel 1.0 ou 1.2

[marcos.gurupi]

Criei um certo trauma! Fiqui usando por muito tempo a hwgui 2.14 quando atualizei para versao 2.17 para producao, houve varias reclamacoes de clientes, coisas relacionadas a focus e Botao q nao respondia com ENTER e etc... entaum fico com um ou dois pes atras para atualizar. Eu quando atualizo testo bastante mas o teste mesmo quem faz eh o cliente, se o sistema muda alguma coisa lah vem as reclamacoes.

Marcos Roberto.

[marcos.gurupi]

Eh disso q eu estava falando. Peguei a lib do colega luis e copilei pra ver. Olha o erro q apresentou:

Código: Selecionar todos

Error BASE/1070  Argument error: ==
Called from hcwindow.prg->(b)HMAINWINDOW:FINDCONTROL(257)
Called from hcwindow.prg->HMAINWINDOW:FINDCONTROL(266)
Called from hcontrol.prg->HSTATUS:INHERITANCE(163)
Called from hcontrol.prg->HCONTROL:NEW(106)
Called from hcontrol.prg->HSTATUS:NEW(435)
Called from PDVNET.PRG->MAIN(335)

Data e Hora........: 30/08/2009 - 21:15:02
Empresa............: empresa
Sistema/Atualizacao: sistema
Usuario do Sistema.: Marcos Roberto
Nome do Executavel.: C:\PROGS\PRINCIPAL\harbour\LCDIST\PDVnet\PDVNET.EXE
Nome do Micro......: NETSERVICE - Nome Usuario.: Marcos Roberto
Memoria Disponivel.: 2097151 - Espaço em Disco....: 134635573248
Pasta de Diretorio.: PROGS\PRINCIPAL\harbour\LCDIST\PDVnet
Sistema Operacional: Windows XP Professional 5.01.2600 Service Pack 3
Versão xHarbour..: HwGUI 2.17 xHarbour build 1.0.0 Intl. (SimpLex)

Eu uso esse comando nessa linha:

Código: Selecionar todos

ADD STATUS TO oMain ID oStatus PARTS 320,65,100,100,55,55,300

[esbasso]

ta errado teu comando
ADD STATUS TO oMain ID oStatus PARTS 320,65,100,100,55,55,300

Correto
ADD STATUS oStatus TO oMain PARTS 320,65,100,100,55,55,300

[marcos.gurupi]

Obrigado Luis, mas pq na lib anterior era aceito?

Marcos Roberto.

[sygecom]

Olá Marcos,
As vez acompanhar as alterações do ChangeLog da Hwgui, pode ser de veras importante para entender esses tipo de alterações que vão acontecendo com o tempo, alias são melhorias que as vez pode nós trazer uma recurso a mais. No caso dos ADD STATUS, agora tem possibilidade de colocar dois clique, um clique , em partes diferente ou em tudo ao mesmo tem, alem das possibilidade de icones. Isso tudo graça ao Basso, que dedicou e dedica seu tempo em melhorar a LIB cada vez mais, as vez uma alteraçãozinha já resolve tudo que foi seu caso ai, mas acompanhando o ChangeLog, pode se resolver muito coisa quando se está se usando a versão da CVS.