Anderson.OL Posted May 13, 2008 Report Share Posted May 13, 2008 Koeh Kapiaba!!! jah tah tudo mastigado!! jah foi tudo discutido!! jah conseguiu ver o circo pegar fogo!! bota a mão na massa e desenvolve isto aew!! Se vc disser que ainda num sabe como vou me sentir obrigado a fazer este codigo pra vc!! (mas fique claro que vou cobrar royalties )id=white> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 13, 2008 Author Report Share Posted May 13, 2008 citação:Koeh Kapiaba!!! jah tah tudo mastigado!! jah foi tudo discutido!! jah conseguiu ver o circo pegar fogo!! bota a mão na massa e desenvolve isto aew!! Se vc disser que ainda num sabe como vou me sentir obrigado a fazer este codigo pra vc!! (mas fique claro que vou cobrar royalties )id=white> id=quote>id=quote>KKKKKKKKKKKKKKKKKKKKKKKKKKK. SABES QUE EU TE AMO NÉ MULEKE??! HACES VAI??!! NÃO CONSIGO NEM PENSAR EM @... Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Yury Posted May 13, 2008 Report Share Posted May 13, 2008 citação:COMO GUARDO O BOTAO GERADO PARA A MESA? id=quote>id=quote>Crie um tabela e vá adicionando os objetos conforme vão sendo criados os botões. Desta forma a mesa será o elemento: aMesas[1] = Mesa 1 aMesas[2] = Mesa 2 citação:COMO DISPARA DIRETO DO BOTAO CRIADO PARA A MESA. id=quote>id=quote>bom, se entendi, vc quer chamar uma função para digitar os dados da venda... coloque este trecho aonde está incluindo os botões, sendo que a função Abremesa é onde vc inclui os dados, que será chamada quando vc clicar na mesa aberta... oAux:lDrag = .F. cBlock = '{|| AbreMesa(' + alltrim(str(nTab)) + ')}' oAux:bAction = &cBlock Function AbreMesa(nMesa) // aqui nMesa é o número da mesa onde vc clicou return id=code>id=code> citação:QUANDO A QUANTIDADE DE BOTOES ULTRAPASSA A TELA, COMO FAZER? id=quote>id=quote>João, vc pode criar uma tela com bmps pequenas e colocar bastante, pois não creio que todas estarão ocupadas ao mesmo tempo, mas se vc achar pouco, pode fazer uma tela com folder, onde vc iria habilitando as abas conforme iria enchendo a tela anterior... um abraço Yury Marcelino Al Viman Sistemas vimansca@vimansca.com.br yury030575@yahoo.com.br (msn) skype: yury.marcelino.al Leme / SP FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 13, 2008 Author Report Share Posted May 13, 2008 citação: citação:COMO GUARDO O BOTAO GERADO PARA A MESA? id=quote>id=quote>Crie um tabela e vá adicionando os objetos conforme vão sendo criados os botões. Desta forma a mesa será o elemento: aMesas[1] = Mesa 1 aMesas[2] = Mesa 2 citação:COMO DISPARA DIRETO DO BOTAO CRIADO PARA A MESA. id=quote>id=quote>bom, se entendi, vc quer chamar uma função para digitar os dados da venda... coloque este trecho aonde está incluindo os botões, sendo que a função Abremesa é onde vc inclui os dados, que será chamada quando vc clicar na mesa aberta... oAux:lDrag = .F. cBlock = '{|| AbreMesa(' + alltrim(str(nTab)) + ')}' oAux:bAction = &cBlock Function AbreMesa(nMesa) // aqui nMesa é o número da mesa onde vc clicou return id=code>id=code> citação:QUANDO A QUANTIDADE DE BOTOES ULTRAPASSA A TELA, COMO FAZER? id=quote>id=quote>João, vc pode criar uma tela com bmps pequenas e colocar bastante, pois não creio que todas estarão ocupadas ao mesmo tempo, mas se vc achar pouco, pode fazer uma tela com folder, onde vc iria habilitando as abas conforme iria enchendo a tela anterior... um abraço Yury Marcelino Al Viman Sistemas vimansca@vimansca.com.br yury030575@yahoo.com.br (msn) skype: yury.marcelino.al Leme / SP FW 2.6 / [x]Harbour 99.50 / WS / xDev 0.65 / @say id=quote>id=quote>KAPITEY... Pensando bem, amanhã eu nem vou trabalhar... Além do mais, tenho tantas razões pra ficar... hehehehe. Vou fixo mesmo. Vou de WorkShop.exe the best. Valeu Yuri, vou pensar com karinho, mas voce ´matou´ a PAU!! Era isso mesmo que eu estava falando. Inteligencia, não se compra na Farmacia... Bem que eu tentei comprar. kkkkk. Obrigado e abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jhilbert Posted May 13, 2008 Report Share Posted May 13, 2008 Olá, No meu sistema uso BMP via.. RESOURCE da seguinte forma... Tenho que definir se o caixa esta ABERTO, FECHADO OU SEM MOVIMENTACAO.. Quando a data é digitada é verificada a situação do caixa, e aà muda-se a cor do bmp para verde, vermelho ou amarelo... No seu caso teria dois BMP's um mesa vazia outro mesa cheia, e aà se alteraria de acordo com a ocupação ou não... Segue codigo de exemplo.... **************** FUNCTION Caixa() LOCAL oDlg, oFntxt, lGo:= .f. PRIVATE arq:= SPACE(08), dDatcaixa := CTOD(" / / "),oStcx,cStcx:=SPACE(15) PRIVATE oBmp,cBmp:="bBlack" && nome do resource BMP (bBlack,bGreen,bRed,bYellow) ******* IF (!Use_arq("caixa",.T.,.F.,.T.,"cai")) cCX:= .F. RETURN (cCx) && variavel se caixa aberto ou não ENDIF *** DEFINE FONT oFntxt name "Arial" size 0,-16 BOLD DEFINE DIALOG oDlg RESOURCE "TELACAIXA" COLORS CLR_LWHITE,CLR_LGREEN OF oWnd oDlg:Cargo:=.F. && ON CHANGE( atualiza_cx(dDatcaixa) ) REDEFINE SAY ID 4001 OF oDlg COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE VGET dDatcaixa PICTURE '99/99/9999' ID 4002 OF oDlg color get_Iler,get_Fler font oFntxt CALENDARIO VALID atualiza_cx(dDatcaixa) .AND. !Empty(dDatcaixa) REDEFINE BITMAP oBmp ID 4005 OF oDlg NAME cBmp TRANSPARENT REDEFINE SAY ID 4003 OF oDlg COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE VGET oStcx VAR cStcx PICTURE '@!' ID 4004 OF oDlg color get_Iler,get_Fler font oFntxt WHEN .F. REDEFINE BUTTON ID 539 OF oDlg ACTION ReabreCX("R",oDlg,dDatcaixa) REDEFINE BUTTON ID 535 OF oDlg ACTION OpeCX ("A",oDlg,dDatcaixa) REDEFINE BUTTON ID 537 OF oDlg ACTION OpeCX ("F",oDlg,dDatcaixa) REDEFINE BUTTON ID 536 OF oDlg && ACTION ImpExtrato( oLbx,oDlg ) WHEN cXOpen=.T. REDEFINE BUTTON ID 538 OF oDlg ACTION OpeCX ("S",oDlg,dDatcaixa) REDEFINE BUTTON ID 509 OF oDlg ACTION ( oDlg:Cargo:=.T., oDlg:End() ) WHEN cCX=.T. ACTIVATE DIALOG oDlg CENTERED // Ativa a Janela de Dialogo IF oDlg:Cargo cXOpen:= .T. ENDIF cai->(DbCloseArea()) RETURN (cCx) ************************** FUNCTION atualiza_cx(cDat) LOCAL mMes,mAno,cArq ******************** mMes:= STRZERO(MONTH(cDat),2) mAno:= STRZERO(YEAR (cDat),4) ********** SELECT cai cai->(dbSetOrder("data")) cai->(dbGoTop()) if dbSeek( cDat ) if cai->sit_caixa="A" && Caso caixa aberto cStcx:= "ABERTO" cBmp:= "bGreen" && botao BMP fica verde oBmp: SetBMP(cBmp) && Seta para mudar a cor do bmp else cStcx:= "FECHADO" && Caso fechado cBmp:= "bRed" && botao BMp fica vermelho oBmp: SetBMP(cBmp) && Seta para mudar a cor do bmp endif lGo:= .T. else cStcx:= "NÃO MOVIMENTADO" && caso nao movimentado cBmp:= "bYellow" && botao BMP fica amarelo oBmp: SetBMP(cBmp) && Seta para mudar a cor do botao lGo:= .T. endif oStcx: Refresh() RETURN(lGo) id=code>id=code>Espero ter ajudado... JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 13, 2008 Author Report Share Posted May 13, 2008 Fala grande PERNANBUCANO... Firmê le guatambê?? kkk. Podias por favor POSTAR UMA IMAGEM DA SUA TELA DE VENDA BALCAO/DELIVERY VENDA NAS MESAS?? Somente para eu comparar se a minha está de ´bom tamanho´. Abraços e obrigado. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
quicussi Posted May 13, 2008 Report Share Posted May 13, 2008 Meu... Que baita coisa complicada... Mas, se lembro-me bem, usanto o xBrowse ou Browse normal, trocar BitMaps é moleza. Image usando o xBrowse multi-lines. Não sei naum...sou meio inexperiente nestas jardinagens. Estou mais humilde possÃvel. Mas, vou continuar a pensar mais. Abraco Kapi ea todos. Quote Link to comment Share on other sites More sharing options...
jhilbert Posted May 13, 2008 Report Share Posted May 13, 2008 Olá kapiaba.... Aqui é muita chuuuuuuva!!! Vou ter que levar muita comida nordestina pro próximo encontro!!!!! segue a tela... http://img81.imageshack.us/my.php?image=tevendaun7.jpg http://img81.imageshack.us/my.php?image=tevendaun7.jpg JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 14, 2008 Author Report Share Posted May 14, 2008 citação:Meu... Que baita coisa complicada... Mas, se lembro-me bem, usanto o xBrowse ou Browse normal, trocar BitMaps é moleza. Image usando o xBrowse multi-lines. Não sei naum...sou meio inexperiente nestas jardinagens. Estou mais humilde possÃvel. Mas, vou continuar a pensar mais. Abraco Kapi ea todos. id=quote>id=quote>OPA, na simplicidade e na humildade, a resposta. GOSTEI, uma BROWSE, pareceu-me muito interessante Quicussi. Vou fazer testes este final de semana. Kapitey sua idéia. Obrigado. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 14, 2008 Author Report Share Posted May 14, 2008 citação:Olá kapiaba.... Aqui é muita chuuuuuuva!!! Vou ter que levar muita comida nordestina pro próximo encontro!!!!! segue a tela... JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib id=quote>id=quote>Hilbert, não está dando para visualizar, está pequena. Parece-me bem bonita. Poste novamente, ou envie em meu email por favor. Acho que tem alguma cousa para apreciar. Gracias, abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 14, 2008 Author Report Share Posted May 14, 2008 Hilbert, mostre-me como voce faz uma venda para o cliente, não entendi a lógica. Você já controla a SANGRIA DO CAIXA direto na tela de vendas, ou olhei a tela errada?? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jhilbert Posted May 15, 2008 Report Share Posted May 15, 2008 Segue imagem da tela de vendas... JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib Editado por - jhilbert on 15/05/2008 23:03:43 Quote Link to comment Share on other sites More sharing options...
vagner Posted May 16, 2008 Report Share Posted May 16, 2008 citação:Segue imagem da tela de vendas... http://img216.imageshack.us/img216/6199/telvendawv6.jpg JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib Editado por - jhilbert on 15/05/2008 23:03:43 id=quote>id=quote>Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 16, 2008 Author Report Share Posted May 16, 2008 citação: citação:Segue imagem da tela de vendas... http://img216.imageshack.us/img216/6199/telvendawv6.jpg JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib Editado por - jhilbert on 15/05/2008 23:03:43 id=quote>id=quote>Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>Hilbert, fiquei confuso: Comprei dois leitores de códigos de barras, um SERIAL e um de TECLADO, como faço para usar em sua tela de vendas OS DOIS LEITORES?? Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Naruto uZumaki Posted May 16, 2008 Report Share Posted May 16, 2008 [OFF] - Esses botões , como são feitos ?? 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...
kapiaba Posted May 16, 2008 Author Report Share Posted May 16, 2008 citação:[OFF] - Esses botões , como são feitos ?? té++ ____________________________ Eder Xavier Msn:eder_xavier_2@hotmail.com Xharbour /fivewin 8.01 workshop /VSX id=quote>id=quote>VOCE PODE USAR VLIB.LIB, DBUTTONS OU TSBUTTONS, OU CRIAR SEUS PROPRIOS BOTOES COM O PHOTOSHOP E USAR AS NOVAS CLASSES DE BOTOES NATIVAS DO FIVEWIN. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jhilbert Posted May 16, 2008 Report Share Posted May 16, 2008 Olá Kapiaba, Os botões, são do tipo borland.. feitos no BUTTON MANIA E inseridos no resource no WS. tipo Borland... JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 16, 2008 Author Report Share Posted May 16, 2008 citação:Olá Kapiaba, Os botões, são do tipo borland.. feitos no BUTTON MANIA E inseridos no resource no WS. tipo Borland... JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib id=quote>id=quote>BUTTON MANIA??? CHE ÉS ESTO??? SE FOR LINK, POSTA AHI, MANO! Abraços, e vai guardando a ´VERBA´ para o FINAL DO ANO. É NÓIS NA FITA NOVAMENTE. Certo??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jhilbert Posted May 18, 2008 Report Share Posted May 18, 2008 citação: citação:Olá Kapiaba, Os botões, são do tipo borland.. feitos no BUTTON MANIA E inseridos no resource no WS. tipo Borland... JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib id=quote>id=quote>BUTTON MANIA??? CHE ÉS ESTO??? SE FOR LINK, POSTA AHI, MANO! Abraços, e vai guardando a ´VERBA´ para o FINAL DO ANO. É NÓIS NA FITA NOVAMENTE. Certo??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Na verdade o nome do software é: 3d button studio editor.... Descupe o errooooo!! JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 19, 2008 Author Report Share Posted May 19, 2008 hehehehehe. Fodió mais ainda.... kkkkkkkkkk 3d button studio editor. E ahi, onde eu encontro este ´troço´ sô??? Abraços. Será um destes? http://www.google.com.br/search?sourceid=navclient&ie=UTF-8&rlz=1T4SUNA_enBR259BR262&q=%223d+button+studio+editor%22 João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 19/05/2008 09:49:49 Quote Link to comment Share on other sites More sharing options...
jhilbert Posted May 19, 2008 Report Share Posted May 19, 2008 citação:hehehehehe. Fodió mais ainda.... kkkkkkkkkk 3d button studio editor. E ahi, onde eu encontro este ´troço´ sô??? Abraços. Será um destes? http://www.google.com.br/search?sourceid=navclient&ie=UTF-8&rlz=1T4SUNA_enBR259BR262&q=%223d+button+studio+editor%22 João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 19/05/2008 09:49:49 id=quote>id=quote>superdownloads.uol.com.br/download/111/3d-button-visual-editor/ - 27k JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 19, 2008 Author Report Share Posted May 19, 2008 citação: citação:hehehehehe. Fodió mais ainda.... kkkkkkkkkk 3d button studio editor. E ahi, onde eu encontro este ´troço´ sô??? Abraços. Será um destes? http://www.google.com.br/search?sourceid=navclient&ie=UTF-8&rlz=1T4SUNA_enBR259BR262&q=%223d+button+studio+editor%22 João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 19/05/2008 09:49:49 id=quote>id=quote>superdownloads.uol.com.br/download/111/3d-button-visual-editor/ - 27k JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib id=quote>id=quote>ESTE É O QUE CUSTA US$ 29,00 ??? João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jhilbert Posted May 19, 2008 Report Share Posted May 19, 2008 Tem uma versão de demostração, mas o full tem que pagar... mas vale o preço. 3D Button Visual Editor (MultiMedia Soft) 4.2 JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 19, 2008 Author Report Share Posted May 19, 2008 citação:Tem uma versão de demostração, mas o full tem que pagar... mas vale o preço. 3D Button Visual Editor (MultiMedia Soft) 4.2 JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib id=quote>id=quote>Gracias friend, gostei da ideia. Agora, mes responde, como faço para USAR CODIGOS DE BARRAS COM LEITOR SERIAL OU DE TECLADO EM TUA TELA DE VENDAS??? Heim? heim?!! hehehehe Abraços, e guarda a VERBA, que este ano estou para ´variar´, DURO!! KKKKKKKKKKKKKKKKK. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jhilbert Posted May 19, 2008 Report Share Posted May 19, 2008 citação: Tem uma versão de demostração, mas o full tem que pagar... mas vale o preço. 3D Button Visual Editor (MultiMedia Soft) 4.2 JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib id=quote>id=quote>Se entendi.... após click no botão inserir produto.. ele já da foco no campo Código de barras..... é só passar o leitor que já fica ok... segue o código... ******************************** FUNCTION AchaCodB(cCBarras,cArq) // Função de Venda LOCAL cAlias:= SUBSTR(cArq,1,3) IF !Use_arq("produtos",.T.,.T.,.T.,"pro") SELECT &cAlias RETURN nil ENDIF IF cCBarras=SPACE(13) pro->(DbCloseArea()) SELECT &cAlias RETURN (.F.) ENDIF pro->(dbSetOrder("barras")) pro->(dbGoTop()) if dbSeek( cCBarras ) Igual_var() ccBarras:= pro->cBarras cPronome:= pro->pronome cPromarca:= pro->marnome cProcor:= pro->cornome cPrv2:= cPrv:= pro->prv cPrf:= pro->prf cRef:= pro->ref *** ocBarras: Refresh() oPronome: Refresh() oRef: Refresh() oPromarca: Refresh() oProcor: Refresh() oQtat: Refresh() oPrv: Refresh() oPrf: Refresh() pro->(DbCloseArea()) SELECT &cAlias xSetFocus(oQuant) RETURN (.T.) ELSE INFO2("Produto não cadastrado!","Alerta!","ISSTO") pro->(DbCloseArea()) SELECT &cAlias xSetFocus(oQuant) RETURN (.F.) ENDIF RETURN nil ************************************* FUNCTION PROins(cOrig,OLbxMan,oDlgman) LOCAL oDlgPes,oFont,oFont1,oFont2,oFntxt PRIVATE oQuant,oDesc,oAcre,oTrad,cPDesc:=0.00,cPAcre:=0.00, cObsPro:=SPACE(30),cTrad:=1,cAcre:=0,cPrv2:=0 ************************************* ** // Define Fonte da Function PROins DEFINE FONT oFont name "arial" size 0,-15 BOLD DEFINE FONT oFont1 name "arial" size 0,-22 DEFINE FONT oFont2 name "arial" size 0,-28 DEFINE FONT oFntxt name "Arial" size 0,-15 BOLD *********************************** ** // Processa exclusao de Produtos IF cOrig="E" IF Blq_Reg().AND.Info(.F.,"Exclui "+RTRIM(itt->pronome)+"?","Exclusão de Registro","ISINT") cTitem:= cTitem-1 cTprod:= cTprod-(prv*quant) cTdesc:= cTdesc-(desc*quant) cTvend:= cTprod-cTdesc oTitem: Refresh() oTprod: Refresh() oTdesc: Refresh() oTvend: Refresh() ** itt->(DbDelete()) itt->(dbSkip(-1)) itt->(DbCommit()) itt->(DbUnLock()) oLbxMan:UpStable() oLbxMan:Refresh() oDlgMan:SetFocus() RETURN ENDIF oDlgMan:SetFocus() RETURN ELSEIF cOrig = "M" // Imprime o conteúdo do arquivo oLbxMan:Report() RETURN *************************************** ** //Inicializa variaveis para inclusao ELSEIF cOrig="V" itt->(dbGoBottom()) cCBarras:= SPACE(13) cPronome:= SPACE(50) cPromarca:= cProcor:= SPACE(20) cRef:= SPACE(10) cQuant:= 1.00 cQtat:= cPrf:= cPrv:= cPrv2:= cDesc:= cPdesc:= cVL_total:= 0.00 cObsPro:= SPACE(30) ELSE oDlgMan:SetFocus() RETURN ENDIF ******************************************** ** // Define janela p/interacao com o Dialog DEFINE DIALOG oDlgPes RESOURCE "TELATRA4" COLORS CLR_LWHITE,CLR_LGREEN OF oWnd oDlgPes:Cargo:=.F. oDlgPes:cCaption:= "Inclusão de Produtos" ************************************ ** // Verifica a Operacao (Inclusao) REDEFINE SAY ID 112 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 113 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 114 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 115 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 116 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 117 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE GROUP ID 118 OF oDlgPes COLOR CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 119 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 120 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 121 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 122 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 123 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 128 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 129 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt REDEFINE SAY ID 4001 OF oDlgPes COLORS CLR_BLUE,CLR_LGREEN font oFntxt *** REDEFINE BUTTON ID 508 OF oDlgPes ACTION BUSCAPRO("ittemp") WHEN Empty(cCBarras) REDEFINE GET oCBarras VAR cCBarras ID 101 OF oDlgPes font oFont PICTURE "9999999999999" VALID Empty(cCBarras).OR.ACHACODB(cCbarras,"ittemp") REDEFINE GET oPronome VAR cPronome ID 102 OF oDlgPes COLORS CLR_WHITE,CLR_BLUE font oFont PICTURE "@!" WHEN .F. REDEFINE GET oRef VAR cRef ID 103 OF oDlgPes COLORS CLR_WHITE,CLR_BLUE font oFont PICTURE "@!" WHEN .F. REDEFINE GET oPromarca VAR cPromarca ID 104 OF oDlgPes COLORS CLR_WHITE,CLR_BLUE font oFont PICTURE "@!" WHEN .F. REDEFINE GET oProcor VAR cProcor ID 105 OF oDlgPes COLORS CLR_WHITE,CLR_BLUE font oFont PICTURE "@!" WHEN .F. REDEFINE GET oQtat VAR cQtat ID 106 OF oDlgPes COLORS CLR_WHITE,CLR_BLUE font oFont1 PICTURE "9999999.99" WHEN .F. REDEFINE GET oQuant VAR cQuant ID 107 OF oDlgPes font oFont1 PICTURE "99999.99" VALID cQuant>0 REDEFINE RADIO OTrad VAR cTrad ID 124,125 OF oDlgPes COLOR CLR_BLUE,CLR_LGREEN VALID Testrad(cTrad,cPrv2) REDEFINE GET cPdesc ID 111 OF oDlgPes COLORS CLR_WHITE,CLR_RED font oFont PICTURE "999.99" VALID cPdesc>=0.00 .AND. cPdesc<=100.00 .AND. CALCPERC(cPrv,cPdesc) WHEN cTrad=1 REDEFINE GET oDesc VAR cDesc ID 108 OF oDlgPes font oFont PICTURE "99,999.99" VALID cDesc<(cPrv*cQuant) .AND. Totaliza(cPrv,cDesc,cQuant) WHEN cTrad=1 REDEFINE GET cPacre ID 126 OF oDlgPes COLORS CLR_WHITE,CLR_RED font oFont PICTURE "999.99" VALID cPacre>=0.00 .AND. cPdesc<=100.00 .AND. CALCPACR(cPrv,cPacre) WHEN cTrad=2 REDEFINE GET oAcre VAR cAcre ID 127 OF oDlgPes font oFont PICTURE "99,999.99" VALID cAcre>=0 .AND. Totalmais(cPrv,cAcre,cQuant) WHEN cTrad=2 REDEFINE GET oPrf VAR cPrf ID 4002 OF oDlgPes COLORS CLR_WHITE,CLR_GREEN font oFont1 PICTURE "99,999.99" WHEN .F. REDEFINE GET oPrv VAR cPrv ID 109 OF oDlgPes COLORS CLR_WHITE,CLR_BLUE font oFont1 PICTURE "99,999.99" WHEN .F. REDEFINE GET oVL_total VAR cVL_total ID 110 OF oDlgPes COLORS CLR_WHITE,CLR_RED font oFont2 PICTURE "99,999.99" WHEN .F. REDEFINE BUTTON ID 512 OF oDlgPes ACTION WinExec("Calc") **************************************** ** // Define a saida da caixa de dialogo REDEFINE BUTTON ID 500 OF oDlgPes ACTION ( oDlgPes:Cargo:=.T., oDlgPes:End()) WHEN cvl_total>0 REDEFINE BUTTON ID 502 OF oDlgPes ACTION ( oDlgPes:End()) ***************************************** ** // Define janela p/nteracao com Dialog ACTIVATE DIALOG oDlgPes CENTER on init ( ShowWindow( oDlgPes:hWnd, 1 ) ) ***************************************** ** // UpDate no Banco de dados ItemBoleto IF oDlgPes:Cargo IF cOrig="V" IF Add_Reg(cNumtran) Repl_Var(cNumtran) cDesc:= cDesc*cQuant && atualiza Desconto com a quantidade de saida cTitem:= cTitem+1 cTprod:= cTprod+(cPrv*cQuant) cTdesc:= cTdesc+cDesc cTvend:= cTprod-cTdesc oTitem: Refresh() oTprod: Refresh() oTdesc: Refresh() oTvend: Refresh() *** ELSE oDlgMan:SetFocus() RETURN ENDIF ENDIF && ** ClrBuffer("itembol","ite") SELECT itt itt->(dbGoTop()) itt->(DbCommit()) itt->(DbUnLock()) oLbxMan:UpStable() oLbxMan:Refresh() oDlgMan:SetFocus() ELSE oDlgMan:SetFocus() RETURN ENDIF RETURN NIL id=code>id=code>Qual a data do Encontro... já marcaram???? JHILBERT Fw7.04/BCC5.551/xHarbour0.9971/Pelles C/xDEv/vLib 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.