Theotokos Posted June 23, 2008 Report Share Posted June 23, 2008 Olá Pessoal,,,, É o seguinte, montei uma tela de lanç. Entrada. Data N.F. Fornecedor Codigo Descrição Qtde Vr.Unit. Vr.Total Depois embaixo uma ListBox para Armazenar os dados lançados antes de gravar.... O PROBLEMA É O SEGUINTE... COMO FAÇO PARA DEPOIS QUE O USUARIO PARA A DIGITAR O CODIGO , O SISTEMA FIQUE EM UM 'LOOP' ATÉ QUE ELE TERMINE DE LANÇAR TODAS AS MERCADORIAS DA NF ? ********************************************* Tipo assim, antes no clipper puro, colocava um READ antes e outro READ no final e pronto. ]*********************************************** Aguardo!!!!!!!!! Obrigado Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 23, 2008 Author Report Share Posted June 23, 2008 Olá Pessoal,,,, É o seguinte, montei uma tela de lanç. Entrada. Data N.F. Fornecedor Codigo Descrição Qtde Vr.Unit. Vr.Total Depois embaixo uma ListBox para Armazenar os dados lançados antes de gravar.... O PROBLEMA É O SEGUINTE... COMO FAÇO PARA DEPOIS QUE O USUARIO PARA A DIGITAR O CODIGO , O SISTEMA FIQUE EM UM 'LOOP' ATÉ QUE ELE TERMINE DE LANÇAR TODAS AS MERCADORIAS DA NF ? ********************************************* Tipo assim, antes no clipper puro, colocava um READ antes e outro READ no final e pronto. ]*********************************************** Aguardo!!!!!!!!! Obrigado Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos Quote Link to comment Share on other sites More sharing options...
ecmsoft Posted June 23, 2008 Report Share Posted June 23, 2008 Bem, eu uso o Do While... em uma "DIALOG" e funciona normalmente. Assim: DO WHILE (.T.) "DIALOG".... if lSair Exit endif ENDDO ECM SISTEMAS Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 2.6 + xHarbour 0.99.4 | FW2.7 + xHarbour 0.99.51 | MySQL (SQLLIB) Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted June 23, 2008 Report Share Posted June 23, 2008 Sua explicação ta indo tão bem até vc. passar p/ maiusculas.. ai embolou o meio de campo.. Mas Veja se é isto que vc. quer.. Define Dialog ... Redefine Get oGet1 Var cDta ID 101 of odlg Redefine Button ... < Gravar > Action Gravar() Activate Dialog... Function Gravar() < " Salva seus Lancamentos " > xSetFocus(oget1) Return .t. Function XSetFocus(oObj) Local oTempo := "" Define Timer oTempo Interval 10 Of oObj:oWnd ; Action (oObj:SetFocus(),oObj:SetPos(0),oTempo:Deactivate()) Activate Timer oTempo Retu("") id=code>id=code>Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com MSN: ico67@msn.com A Informática Nasceu para resolver problemas que antes não existiamid=blue> Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 23, 2008 Author Report Share Posted June 23, 2008 DEFINE FONT oFont NAME "Times News Roma" SIZE 18, 25 BOLD Repeat DEFINE DIALOG oDlg RESOURCE "DLG_ENTRADA" REDEFINE SAY oSay PROMPT "Lançamento de Entrada de Nota Fiscal" ID 300 ; OF oDlg FONT oFont REDEFINE GET oGet VAR dData PICTURE "99/99/99" ID 101 Of oDlg REDEFINE GET oGet VAR cNF PICTURE "@!X" ID 102 Of oDlg REDEFINE GET oGet VAR nVrNF PICTURE "@E 9,999.99" ID 103 Of oDlg REDEFINE DBCOMBO oCbm VAR cFornecedor UPDATE ID 104 OF oDlg ALIAS "BanForne"; ITEMFIELD "F_FORNECED" LISTFIELD "F_FORNECED" * REDEFINE GET oGet VAR cCodigo PICTURE "@!X" ID 105 Of oDlg REDEFINE GET oGet VAR nQtde PICTURE "@E 9,999" ID 106 Of oDlg REDEFINE GET oGet VAR nVrUnit PICTURE "@E 9,999.99" ID 107 Of oDlg REDEFINE GET oGet VAR nVrTotal PICTURE "@E 9,999,99" ID 108 Of oDlg REDEFINE GET oGet VAR nAcrescimo PICTURE "@E 999.99" ID 109 Of oDlg REDEFINE GET oGet VAR nVrVenda PICTURE "@E 9,999.99" ID 110 Of oDlg REDEFINE GET oGet VAR cDescricao PICTURE "@!X" ID 111 Of oDlg When .F. REDEFINE SAY oSay PROMPT nTotalNF ID 301 Of oDlg FONT oFont REDEFINE GET oGet VAR nEstAtual PICTURE "@E 9,999" ID 112 Of oDlg When .F. REDEFINE GET oGet VAR dDtUltimaE PICTURE "99/99/99" ID 113 Of oDlg When .F. REDEFINE LISTBOX oLbx ; Fields aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ; ON DBLCLICK ( If(MsgNoYes("Excluir o Item","Exclusão"),(oLbx:Delete(),oLbx:Refresh()),.t.)) ; Headers "Cód./Ref.","Descrição","Valor Unit","Valor Total","Quant." ; ID 116 OF oDlg oLbx:acolsizes := {150,400,100,100,100} oLbx:SetArray(aDados) oLbx:aJustify := {.f.,.f.,.f.,.f.,.f. } oLbx:refresh() oLbx:bKeyDown:={|nKey| IIF(nKey=VK_RETURN,(lSai:=.t.,oDlg:End()), ) } AADD(aDados, { cCodigo, cDescricao, Transform(nVrUnit,"@E 9,999.99"), ; Transform(nVrTotal,"@E 9,999.99"), Transform(nQtde,"@E 9,999")}) ACTIVATE DIALOG oDlg CENTERED Until lSair A minha rotina é assim: E que eu quero e que qdo voltar, volte no campo Codigo e Nao na DATA.... citação:Bem, eu uso o Do While... em uma "DIALOG" e funciona normalmente. Assim: DO WHILE (.T.) "DIALOG".... if lSair Exit endif ENDDO ECM SISTEMAS Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 2.6 + xHarbour 0.99.4 | FW2.7 + xHarbour 0.99.51 | MySQL (SQLLIB) id=quote>id=quote>Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted June 23, 2008 Report Share Posted June 23, 2008 citação: citação: DEFINE FONT oFont NAME "Times News Roma" SIZE 18, 25 BOLD Repeat DEFINE DIALOG oDlg RESOURCE "DLG_ENTRADA" REDEFINE SAY oSay PROMPT "Lançamento de Entrada de Nota Fiscal" ID 300 ; OF oDlg FONT oFont REDEFINE GET oGet VAR dData PICTURE "99/99/99" ID 101 Of oDlg REDEFINE GET oGet VAR cNF PICTURE "@!X" ID 102 Of oDlg REDEFINE GET oGet VAR nVrNF PICTURE "@E 9,999.99" ID 103 Of oDlg REDEFINE DBCOMBO oCbm VAR cFornecedor UPDATE ID 104 OF oDlg ALIAS "BanForne"; ITEMFIELD "F_FORNECED" LISTFIELD "F_FORNECED" * REDEFINE GET oGetCod VAR cCodigo PICTURE "@!X" ID 105 Of oDlgid=red> REDEFINE GET oGet VAR nQtde PICTURE "@E 9,999" ID 106 Of oDlg REDEFINE GET oGet VAR nVrUnit PICTURE "@E 9,999.99" ID 107 Of oDlg REDEFINE GET oGet VAR nVrTotal PICTURE "@E 9,999,99" ID 108 Of oDlg REDEFINE GET oGet VAR nAcrescimo PICTURE "@E 999.99" ID 109 Of oDlg REDEFINE GET oGet VAR nVrVenda PICTURE "@E 9,999.99" ID 110 Of oDlg REDEFINE GET oGet VAR cDescricao PICTURE "@!X" ID 111 Of oDlg When .F. REDEFINE SAY oSay PROMPT nTotalNF ID 301 Of oDlg FONT oFont REDEFINE GET oGet VAR nEstAtual PICTURE "@E 9,999" ID 112 Of oDlg When .F. REDEFINE GET oGet VAR dDtUltimaE PICTURE "99/99/99" ID 113 Of oDlg When .F. REDEFINE LISTBOX oLbx ; Fields aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ,; aDados[oLbx] ; ON DBLCLICK ( If(MsgNoYes("Excluir o Item","Exclusão"),(oLbx:Delete(),oLbx:Refresh()),.t.)) ; Headers "Cód./Ref.","Descrição","Valor Unit","Valor Total","Quant." ; ID 116 OF oDlg oLbx:acolsizes := {150,400,100,100,100} oLbx:SetArray(aDados) oLbx:aJustify := {.f.,.f.,.f.,.f.,.f. } oLbx:refresh() oLbx:bKeyDown:={|nKey| IIF(nKey=VK_RETURN,(lSai:=.t.,oDlg:End()), ) } AADD(aDados, { cCodigo, cDescricao, Transform(nVrUnit,"@E 9,999.99"), ; Transform(nVrTotal,"@E 9,999.99"), Transform(nQtde,"@E 9,999")}) ACTIVATE DIALOG oDlg CENTERED Until lSair A minha rotina é assim: E que eu quero e que qdo voltar, volte no campo Codigo e Nao na DATA.... citação:Bem, eu uso o Do While... em uma "DIALOG" e funciona normalmente. Assim: DO WHILE (.T.) "DIALOG".... if lSair Exit endif ENDDO ECM SISTEMAS Marciano Queiroz Teixeira de Freitas-Ba marciano@bitfarma.com.br FW 2.6 + xHarbour 0.99.4 | FW2.7 + xHarbour 0.99.51 | MySQL (SQLLIB) id=quote>id=quote>Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos id=quote>id=quote>Function Gravar() < " Salva seus Lancamentos " > xSetFocus(ogetCod)id=red> Return .t. Function XSetFocus(oObj) Local oTempo := "" Define Timer oTempo Interval 10 Of oObj:oWnd ; Action (oObj:SetFocus(),oObj:SetPos(0),oTempo:Deactivate()) Activate Timer oTempo Retu("") Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com MSN: ico67@msn.com A Informática Nasceu para resolver problemas que antes não existiamid=blue> id=quote>id=quote>Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com MSN: ico67@msn.com A Informática Nasceu para resolver problemas que antes não existiamid=blue> Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 23, 2008 Author Report Share Posted June 23, 2008 Obgdo LUIZ, funcionou........... Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted June 23, 2008 Report Share Posted June 23, 2008 boa tarde moçada ! brother Theotokos , no momento estou trabalhando exatamente no mesmo que voce e avaliando sua rotina notei qye tem um capo nACRECIMO , que no caso deduzo que seja um frete , ou um imposto da base de calculos que não esteja somada junto com os produtos e talz , então lhe pergunto , não ficaria estranho daqui uns meses alguem tirar um relação de notas ficais e ter esse acressimo sem saber o que relamente ele significa , por gentileza poderia me esclarecer essa duvida PS: Se algum dos amigos tbm quiserem comentar sobre o assunto , ficarei feliz em saber suas opniõe a respeito. ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com Xharbour /fivewin 8.01 workshop /VSX Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 23, 2008 Author Report Share Posted June 23, 2008 OK! Este acrescimo é uma Porcentagem em cima do Vr de Custo, para obter assim o Valor de Venda do Produto, sendo que esta porcentagem já esta previamente cadastrada, e assim que o usuario faz a entrada dos dados ela atualiza o preço de venda, no caso eu apresento ela nesta rotina, para que se o usuario quiser atualizar, o faça aqui.... Blz!!!!!!!!!!! Só que eu meu problema é que faço o calculo mas não estou conseguindo mostrar na tela, ou seja, atualizar o Get. POR ACASO VC SABE COMO FAÇO??? REDEFINE GET oGet VAR nVrTotal PICTURE "@E 9,999.99" ID 108 Of oDlg When {|| nVrTotal := nQtde * nVrUnit), oGet:Display(), .t. } REDEFINE GET oGet VAR nAcrescimo PICTURE "@E 999.99" ID 109 Of oDlg Valid {|| nVrVenda := nVrTotal * ((nAcrescimo/100) +1), oGet:Display(),.t. } REDEFINE GET oGet VAR nVrVenda PICTURE "@E 9,999.99" ID 110 Of oDlg Valid {|| AdVetor(oGet) } citação:boa tarde moçada ! brother Theotokos , no momento estou trabalhando exatamente no mesmo que voce e avaliando sua rotina notei qye tem um capo nACRECIMO , que no caso deduzo que seja um frete , ou um imposto da base de calculos que não esteja somada junto com os produtos e talz , então lhe pergunto , não ficaria estranho daqui uns meses alguem tirar um relação de notas ficais e ter esse acressimo sem saber o que relamente ele significa , por gentileza poderia me esclarecer essa duvida PS: Se algum dos amigos tbm quiserem comentar sobre o assunto , ficarei feliz em saber suas opniõe a respeito. ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com Xharbour /fivewin 8.01 workshop /VSX id=quote>id=quote>Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos Editado por - Theotokos on 23/06/2008 16:59:04 Editado por - Theotokos on 23/06/2008 17:00:14 Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted June 23, 2008 Report Share Posted June 23, 2008 ok´s Quanto ao GET , experimenta dar um refresh() nele tipo oGet:REfresh() ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com Xharbour /fivewin 8.01 workshop /VSX Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 23, 2008 Author Report Share Posted June 23, 2008 coloquei o refresh(), mas atualiza só (funciona) depois que passa pela segunda vez nos gets... ESTRANHO, NÃO!!!!!!!!!!!!!1 REDEFINE GET oGet VAR nVrUnit PICTURE "@E 9,999.99" ID 107 Of oDlg REDEFINE GET oGet VAR nVrTotal PICTURE "@E 9,999.99" ID 108 Of oDlg When {|| nVrTotal := nQtde * nVrUnit, oGet:Refresh(), oGet:Display(), .t. } REDEFINE GET oGet VAR nAcrescimo PICTURE "@E 999.99" ID 109 Of oDlg Valid {|| nVrVenda := nVrTotal * ((nAcrescimo/100) +1), oGet:Refresh(), oGet:Display(),.t. } REDEFINE GET oGet VAR nVrVenda PICTURE "@E 9,999.99" ID 110 Of oDlg Valid {|| AdVetor(oGet) } citação:ok´s Quanto ao GET , experimenta dar um refresh() nele tipo oGet:REfresh() ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com Xharbour /fivewin 8.01 workshop /VSX id=quote>id=quote>Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos Editado por - Theotokos on 23/06/2008 17:09:47 Editado por - Theotokos on 23/06/2008 17:12:42 Quote Link to comment Share on other sites More sharing options...
personal Posted June 23, 2008 Report Share Posted June 23, 2008 Não esta dando UPDATE nos GET´s. Todos os Get´s estao como mesmo nome do obj. Oliveira, Sérgio A. PERSONAL Comp. e Sitemas.id=green> FWH, xharbour, SqlLib, AdoRDD, xMate TWBrowse(HC), vPrinter(VW). Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 23, 2008 Author Report Share Posted June 23, 2008 Tentei de todas as maneiras, e todas elas acontece a mesma coisa, só funciona depois que passa pelo loop a segunda vez, ou seja, funciona... mostra o valor calculado tudo certinho, mas sempre na primeira vez que passo pelos gets, nao aparece, apesar do valor aparecer certo no array (ListBox)..... citação:Não esta dando UPDATE nos GET´s. Todos os Get´s estao como mesmo nome do obj. Oliveira, Sérgio A. PERSONAL Comp. e Sitemas.id=green> FWH, xharbour, SqlLib, AdoRDD, xMate TWBrowse(HC), vPrinter(VW). id=quote>id=quote>Clipper 5.2e + Blinker 7.0 + Demo FiveWin - Tentando Aprender com os Irmãos Editado por - Theotokos on 23/06/2008 17:18:57 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted June 23, 2008 Report Share Posted June 23, 2008 Tente algo tipoassim.. oGet:Varput(ntotal) oGet:Refresh()id=code>id=code>para cada get um obJeto diferente; oGet1 oGet2 oget3 id=code>id=code>Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com MSN: ico67@msn.com A Informática Nasceu para resolver problemas que antes não existiamid=blue> Editado por - ico on 23/06/2008 17:38:22 Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted June 23, 2008 Report Share Posted June 23, 2008 Cara , faça como o brother ICO falou , colca um objeto para cada GET e só mais um ca coisinha , faça um teste sem "codeblock " tente um valid chamando uma função , só pra ver no que da , tem que ir eliminando as possibilidades .. té++ ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com Xharbour /fivewin 8.01 workshop /VSX Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.