Kbelo

Com esse fonte pode ocorrer erro mesmo. Veja que voce atribui o obj mas não limpa e faz 3 returns uma atras do outro? O Seu Obj tem dados mas não se sabe oque. Teria que ver a criação dele. Quanto a Return, Return nil ou return(nil) é tudo a mesma coisa voce pode usar em função, prg, procedure não muda nada. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Ou seja. Maquinas 64 Bits só rodam sistemas 32 bits e 64 Bits Maquinas 32 Bits só rodam sistemas 16 bits e 32 Bits Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

O Problema com windows 7 não é o Fivewin. Se seu sistema usa xHarbour e esta compilado em 32 bits roda normalmente. Se voce usar o Fivewin e estiver em uma versão 16 bits ai não ira rodar no windows 64 bits. Lembrando que é sempre bom executar seu sistema como administrador. Executar como administrador NÃO é o usuario administrador e sim a execução. Ex: botão direito, "Executar como Administrador" ou "Run Administrator". Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

vo lançar a campanha. Coloque na sua assinatura se a versão é original. Quem não o fizer, é por que ta com medinho. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate.

Bom não concordo com Forum pago. Primeiro que se esse forum morrer e surgir um outro pago. Qualquer usuario pode criar um forum gratuito e levar os "pirateiros". Como o Gilmer disse antes ele tinha em torno de 10 vendas mes, hoje nem isso. O lucro seria tão baixo que não pagaria as contas para manter o forum. Afinal iria depender de tempo para analises, Algum controles etc... Ainda assim tem o forum internacional e o cliper On line. Os dois são gratuitos. Assim a maioria absoluta iria passar a usar outros foruns que não este ou o novo. Nesse novo só entraria um pequeno grupo que são os pagadores. Essa é minha opinião. Não foi minha intenção julgar ou ofender alguem. Se o fiz peço desculpas. Ah e minha versão tambem é Original. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

citação:Mais é assim que funciona o forum (pelo menos funcionava), só que de uns tempos pra cá o forum está quase "esquecido", e quem resolve sozinho o problema ou por MSNs da vida não deixa a dica acho que até por vingança, mais procure postagens antigas e vcs. vão ver como funcionava nosso forum, era realmente compartilhado com todos, quanto aos exemplos por email, eu mesmo mando de vez enquando se alguém precisar, tem situações que o "dono da duvida" quer ver o trem rodando e comparando cada linha do prg pra entender o funcionamento e não tem como executar o demo aqui no forum, se colocar em dicas vai virar um amontoado de ZIP com EXE que deus nos acuda. Acho que o causou esse atendimento personalizado foi o aumento de comercializações de LIBs em que dependendo da situação só o autor poderá ajudar, e sendo assim é errado usar o forum do FiveWin para sanar duvidas de LIBs e classe que de terceiros, mesmo sendo usada com o fivewin, o forum é www.FiveWin.com.br" e não www.libs.etc...com.br" cada dono de LIBs deve ter seu próprio site ou meios de ajudar quem adqueriu suas LIBs. Diferente do Gilmer que mantem este forum a anos e é representante da FiveWin. O resto que procure outro lugar pra dar suporte, senão daqui a pouco pra achar uma dica de FiveWin teremos que vasculhar em um monte de LIBs e Classes de terceiros. Me desculpe se ofendi alguém mais essa é minha opinião. Se acharque eu estou errado por falar que tentarei entender e talvez mudar de opinião (isso se me convencerem) Rs! Rs!.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | FiveWin 9.04 xHarbour PellesC Bcc id=quote>id=quote>Por um lado voce esta certo. Porem ate o Gilmer comercializar lib extras aqui. Ai se o proprio "predidente" faz fica dificil. Inclusive foi questionado isso. Tudo bem que o forum é dele mas o nome é Fivewin e o proposito é fivewin. Quanto ao foco inicial desse topico não acredito que mude muito. Frequento o Forum a uns 8 anos mais ou menos. Sempre foi assim. Surgiu essas mesmas sugestões anteriormente e ate hoje nada. Quando muda fica 1 semana ou 1 mes e depois volta a ser como era. Outro problema é que o forum tambem não funciona direito. Os moderadores não são funcionarios do Forum e fazem o que podem, quando podem. Na pagina principal eu tenho que logar com uma senha que ja troquei a mais de 5 anos. Ja na pagina de programação logo com a senha atual. Voce faz a busca e mostra o link, voce clica e aparece "Ocorreu um problema, verifique se esta logado" ou algo parecido. Muita tem que melhorar aqui no forum. De pouco em pouco desmotiva alguns membros a frequentarem e ate compartilhar novas rotinas. Eu sou exemplo disso. Sempre gostei de mexer com classes, criar novos metodos, facilitar rotinas. Muitas eu compartilhei, hoje entr no forum la uma vez ou outra. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

Pow Samir. Ele ta querendo saber qual melhor forma de ele programar. Ele ja sabe o que esta fazendo. Li uma frase uma vez que dizia. "Se sua função não cabe na sua tela, esta na hora de refatorar." Ou seja, voce tem que deixar seu fonte Bonito, separado, organizado. E não uma função ou procedure que tem 500 if, for, do whiles e por ai vai. Procure deixar seu fonte na tela tambem evitando barra de rolagem lateral. Algumas dicas que eu lhe daria nesse inicio Inicie declarando as variaveis. Que as variaveis tenham um padrão. Tipo um prefixo para indentificar o tipo. Escrever sempre na mesma forma seguindo alguns padrões que voce mesmo pode definir. Eu misturo um pouco do padrão microsoft, java e um estilo proprio. sempre escrevo em minusculo, com letra maiuscula em novas palavras. Classes começam com letra maiuscula. Variavel temporario escrevo com x na frente. E por ai vai Lógico que voce quem vai definir seu melhor estilo. Mas que seja organizado de forma que voce entenda seu fonte. E outra pessoa leia seu fonte e tambem entenda. Existe um padrão em uma empresa aqui da minha cidade que diz. "Não se comenta codigo". Eles fazem isso por que dizem que voce deve fazer seu fonte de forma que outros programadores ao ler o codigo ja saibam o que o fonte quer dizer. Não que isso esteja 100% correto. Eu faria assim o seu fonte define dialog oDlgTeste resource "DLG_Teste" brush oBrushVista transparent redefine xBrowse oBrowserTeste redefine buttonBmp oBtnCan id 31 of oDlgDev ; action (devDeleteCapa(lappend, numnDev),oDlgDev:end()) ; bitmap cBitMaps+"cancela.bmp" prompt "&cancelar" cancel oBtnCan:cToolTip := "Saida da tela inclusão devolução" activate dialog odlgdev centered return .t. *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* function devDeleteCapa(lappend, vnumndev) return .t. id=code>id=code>Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

citação:Tentei Mais deu alguns erros. No BCC 5.5 - deu a falta de alguns arquivos: Windows.h HbApi.h Commctrl.h StdLib.h Att OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. id=quote>id=quote>Windows.h esta na pasta Include da Bcc. HbApi.h esta na pasta Include do xHarbour Commctrl.h esta na pasta Include da Bcc. StdLib.h esta na pasta Include da Bcc. Minha Bcc é a 582 e tem tudo la. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

Sua versão não é a mesma da Lib. Pelo que to vendo ela é compilada com xh 0.99.50. Veja se tem os fontes da lib e recompile com seu xharbour. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

citação:Exato, trabalhei assim por case tres anos, um programa em modo console, e um outro paralello em 32 bits, ate que terminei todo sistema, isto usando rddads, mais com rddcdx tb ira dar certo... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 id=quote>id=quote>Quando vc diz console vc diz xHarbour console? Ou Clipper? Pq xharboru console é 32 bits. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

Galera é mais facil que pensei. campo := "cUF" valor := "29" //aqui é o codigo. ::&campo := &valor id=code>id=code>Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

citação:Bom dia Marcelo, Talvez usando "eval" você consiga fazer isto. Veja um exemplo abaixo funcionando em harbour. function main local a, b, c := 10 a := &( "{ |x| b := x }" ) ? eval( a, c ) ? a ? b ? c return NIL id=code>id=code>T+ Rossine Harbour, Harbour, Harbour -> 3 vezes Harbour id=quote>id=quote>Tentei dessa forma tambem mas deu o mesmo problema de self não existe. Mas como viram se atribuir ante funciona. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

citação:Quando citei todas as declarações é de todas as chamadas do primeiro ponto até o resultado final... Pelo visto você tem várias chamadas de objetos diferentes para chegar ao resultado final... Lembre que :: é traduzido para Self e não pode ser utilizado fora da classe de origem, então você teria que utilizar o Self e passar ele por parâmetro. RCA Sistemas - Itaocara - RJ id=quote>id=quote>é tudo dentro da classe. Por isso :: resumindo o que queria era fazer &variavel e essa variavel ser uma propriedade da classe, ou seja, possuir o :: Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

cara bão to inventando não. Vi todo mundo fazer importação de xml e faz um monte de voltas. Criando varias funções e tal. ta complicado agora mas veja que uso 3 linhas e atribuo todos os campos sem duplicidade. Fica muito mais enxuto. Mas quanto a sua dica eu sonhei com isso hoje. KKKKK Ja to sonhando com a solução to ficando é doido. Mas só pra constar funciona. Vlw. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

tem que ter :: propriedade da classe. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

citação:Coloque as declarações completas RCA Sistemas - Itaocara - RJ id=quote>id=quote>Bom ta tudo ali ::xml:cName := "cUF" ::xml:cData := "SC" ::nota:SetCampo(::xml:cName, ::xml:cData) *************** METHOD setCampo(campo, Valor) Class NfeNota local x := "" x := "::" + campo + " := " + valor y := &x //aqui da erro id=code>id=code>Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

obj:= ::nota x := "obj:setCampo()" y := &x id=code>id=code>Dessa forma funciona. Mas ai tem outro problema. Mas o prblema é aqui. ::nota:SetCampo(::xml:cName, ::xml:cData) // Aqui o cName é caracter. //ai que ta o "pobrema" METHOD setCampo(campo, Valor) Class NfeNota local x := "" x := "::" + campo + " := " + valor //::nota:cUF := "SC" y := &x aqui da erroid=red> return id=code>id=code>Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate. Editado por - Kbelo on 26/08/2011 17:49:27

Amigos Boa tarde. Seguinte tenho 7 classes e elas tem o mesmo metodo :SetCampo() Cada setCampo tem sua particularidade. eu estava tentando fazer um negocio com menos codigo e fiz assim. Resumindo if verdadeiro x:= "::nota:" else x:= "::total:" endif y := x + "setCampo()" // aqui ficaria "::nota:setCampo()" a := &y // aqui da erro. id=code>id=code>Variavel Self não existe Como posso resolver? Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate. Editado por - Kbelo on 29/08/2011 11:57:22

Amigos Boa tarde. Seguinte tenho 7 classes e elas tem o mesmo metodo :SetCampo() Cada setCampo tem sua particularidade. eu estava tentando fazer um negocio com menos codigo e fiz assim. Resumindo if verdadeiro x:= "::nota:" else x:= "::total:" endif y := x + "setCampo()" // aqui ficaria "::nota:setCampo()" a := &y // aqui da erro. id=code>id=code>Variavel Self não existe Como posso resolver? Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate. Editado por - Kbelo on 29/08/2011 11:57:22

Cade o 3? Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

João ta parecendo SPAM de Mensagens rsrs. Bota em Contingencia e aguarda o problema voltar ao normal. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

Tive o mesmo problema. Provavelmente sua etiqueta é muito pequena. Se não for isso voce pode configurar o salto e ate o tamanho da etiqueta. De uma olhada nesses comandos. JB // Desabilita backfeed JF // Habilita Bakfeed OC //Habilita Cortador Automatico ON //Habilita Dispensador de Etiquetas Q100,0 // Fixa comprimento da Etiqueta. q200 // Fixa Largura da Etiqueta Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

Ola Amigos. Estou fazendo a importação do XML da NFE. Estou com uma Duvida nessa classe de importar xml. Aqui ele acha os Emitente. xmlIter:Find("emit") id=code>id=code>Mas como faço para achar o campo Municipio(cMun) do Emitente? Sendo que o Destinatario tambem tem o Municipio e se eu fizer xmlIter:Find("cMun") id=code>id=code>Ele vai achar 1 campo mas como sei se é do Emitente o Destinatario. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

Ola Amigos. Estou fazendo a importação do XML da NFE. Estou com uma Duvida nessa classe de importar xml. Aqui ele acha os Emitente. xmlIter:Find("emit") id=code>id=code>Mas como faço para achar o campo Municipio(cMun) do Emitente? Sendo que o Destinatario tambem tem o Municipio e se eu fizer xmlIter:Find("cMun") id=code>id=code>Ele vai achar 1 campo mas como sei se é do Emitente o Destinatario. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.

Se não me engano hoje eles usam um tal de ADVPL. Uma especie de xharbour com Fivewin ou coisa parecida. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106 + Bcc 5.82 + SQLRDD + Mate.