oziel Posted July 30, 2012 Report Share Posted July 30, 2012 Caros Colegas. Estou com um problema – estou fazendo o programa de estoque FiveWin – reescrevendo o DOS. 1)Digitar o preço de Custo 2)Digitar a margem 3)Calcular o Preço de Venda a Vista 4) Calcular o Preço de Venda a Prazo. Bem, o que acontece é que eu digito o preço de Custo depois a Margem o sistema vai para a função de Calculo de preços (PcVenda) – quando dou enter só atualiza o Preço de Venda a Prazo, o preço de Venda a vista fica igual e zero – Se eu utilizar a seta para cima e retornar para o preço de custo ir dando enter ai o preço de venda é atualizado. Abaixo está o fonte. DEFINE DIALOG oDlg RESOURCE "TELA_CAD1" // inclusao de produtos ................ nCstp := 0 // Custo do Produto nVedp := 0 // Preço de Venda nVedp_ap := 0 // Preço de Venda a prazo REDEFINE GET oG35 VAR nCstp PICTURE '99,999.99' ID 160 OF oDlg REDEFINE GET oG36 VAR nMargem PICTURE '99,999.99' ID 170 OF oDlg Valid PcVenda() UpDate REDEFINE GET oG39 VAR nVedp PICTURE '99,999.99' ID 200 OF oDlg UpDate REDEFINE GET oG40 VAR nVedp_ap PICTURE '99,999.99' ID 210 OF oDlg UpDate //------------------------------------------------------------------- Function PcVenda() // - Calculo do preço de Venda a Vista e a Prazo. Local nTx_juro:=10 nVedp = ((nMargem/100)*nCstp)+(nCstp) nVedp_ap = ((nTx_juro /100)*nVedp)+(nVedp) Return .t. //---------------------------------------------------------- https://skydrive.live.com/?sc=documents&cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125&sc=documents OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Editado por - oziel on 30/07/2012 17:58:36 Quote Link to comment Share on other sites More sharing options...
oziel Posted July 30, 2012 Author Report Share Posted July 30, 2012 Caros Colegas. Estou com um problema – estou fazendo o programa de estoque FiveWin – reescrevendo o DOS. 1)Digitar o preço de Custo 2)Digitar a margem 3)Calcular o Preço de Venda a Vista 4) Calcular o Preço de Venda a Prazo. Bem, o que acontece é que eu digito o preço de Custo depois a Margem o sistema vai para a função de Calculo de preços (PcVenda) – quando dou enter só atualiza o Preço de Venda a Prazo, o preço de Venda a vista fica igual e zero – Se eu utilizar a seta para cima e retornar para o preço de custo ir dando enter ai o preço de venda é atualizado. Abaixo está o fonte. DEFINE DIALOG oDlg RESOURCE "TELA_CAD1" // inclusao de produtos ................ nCstp := 0 // Custo do Produto nVedp := 0 // Preço de Venda nVedp_ap := 0 // Preço de Venda a prazo REDEFINE GET oG35 VAR nCstp PICTURE '99,999.99' ID 160 OF oDlg REDEFINE GET oG36 VAR nMargem PICTURE '99,999.99' ID 170 OF oDlg Valid PcVenda() UpDate REDEFINE GET oG39 VAR nVedp PICTURE '99,999.99' ID 200 OF oDlg UpDate REDEFINE GET oG40 VAR nVedp_ap PICTURE '99,999.99' ID 210 OF oDlg UpDate //------------------------------------------------------------------- Function PcVenda() // - Calculo do preço de Venda a Vista e a Prazo. Local nTx_juro:=10 nVedp = ((nMargem/100)*nCstp)+(nCstp) nVedp_ap = ((nTx_juro /100)*nVedp)+(nVedp) Return .t. //---------------------------------------------------------- https://skydrive.live.com/?sc=documents&cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125&sc=documents OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Editado por - oziel on 30/07/2012 17:58:36 Quote Link to comment Share on other sites More sharing options...
Arthur Silvestre Posted July 30, 2012 Report Share Posted July 30, 2012 Tenta dar um refresh nas variaveis nVedp:Refresh() nVedp_ap:Refresh() FWH.11.12 E-mail:ArthurSilvestreSnt@hotmail.com Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted July 30, 2012 Report Share Posted July 30, 2012 Colega de umaolhada nas parte em negrito , faz o teste ia para ver se da certo... citação: nCstp := 0 // Custo do Produto nVedp := 0 // Preço de Venda nVedp_ap := 0 // Preço de Venda a prazo REDEFINE GET oG35 VAR nCstp PICTURE '99,999.99' ID 160 OF oDlg REDEFINE GET oG36 VAR nMargem PICTURE '99,999.99' ID 170 OF oDlg Valid PcVenda(@nVedp,@nVedp_ap,oDlg) UpDate REDEFINE GET oG39 VAR nVedp PICTURE '99,999.99' ID 200 OF oDlg UpDate REDEFINE GET oG40 VAR nVedp_ap PICTURE '99,999.99' ID 210 OF oDlg UpDate //------------------------------------------------------------------- Function PcVenda(nVedp,nVedp_ap,oDlg) // - Calculo do preço de Venda a Vista e a Prazo. Local nTx_juro:=10 nVedp = ((nMargem/100)*nCstp)+(nCstp) nVedp_ap = ((nTx_juro /100)*nVedp)+(nVedp) oDlg:update() Return .t. id=quote>id=quote>Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 9.12,XHARBOUR 1.2,ADS 9.0 FWH1104,XHARBOUR 1.2 Rev.6406, MYSQL c\ SQLLIB FREE Quote Link to comment Share on other sites More sharing options...
oziel Posted July 30, 2012 Author Report Share Posted July 30, 2012 Ok.. Obrigado. Deu certo... https://skydrive.live.com/?sc=documents&cid=c7aa5a53b531c1ae#cid=C7AA5A53B531C1AE&id=C7AA5A53B531C1AE!125&sc=documents OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. 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.