PC Toledo

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)

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.

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

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

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

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.

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

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

Obrigado Luis, mas pq na lib anterior era aceito?

Marcos Roberto.

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.

PC Toledo

Erro repentino!

Erro repentino!

Re: Erro repentino!

Re: Erro repentino!

Re: Erro repentino!

Re: Erro repentino!

Re: Erro repentino!

Re: Erro repentino!

Re: Erro repentino!

Re: Erro repentino!

Re: Erro repentino!