Jump to content
Fivewin Brasil

sig_gilberto

Membros
 View Profile  See their activity

  • Posts

    899

  • Joined

  • Last visited

 Content Type 

Everything posted by sig_gilberto

  1. sig_gilberto
    E ai galera.. Gilberto email : gil_haf@ig.com.br msn : gil_haf@hotmail.com skype : gilberto_mogi FWAbraços ********************************** msn : gil_haf@hotmail.com email: gil_haf@ig.com.br skype: gilberto_mogi Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  2. sig_gilberto
    Kapi..valeu..mais eu somente consiguirei fazer este BOX utilizando obrigatoriamente o WORKSHOP ? Sem ele, não tem jeito ? FWAbraços citação:http://www.fivewin.com.br/contadownload.asp?nome=Fwctrls.zip&arquivo=175 http://www.fivewin.com.br/exibedicas.asp?id=234 No WORKSHOP.EXE the best FILE INSTALL CONTROL LIBRARY Informe o PATH(Caminho) Onde esta a fwctrls.dll João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.60 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: id=quote>id=quote>********************************** Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  3. sig_gilberto
    Amigos...quero fazer com que todas as minhas opções em um RADIO fiquem cercadas por uma Retangulo(BOX) tipo marca dágua. Numa de minhas apostilas, diz que eu preciso da CTRL3D.DLL e ainda usar o SET 3D LOOK ON. Muito bem....onde eu acho este DLL e como dar fazer este BOX ? FWAbraços ********************************** Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  4. sig_gilberto
    Amigos...quero fazer com que todas as minhas opções em um RADIO fiquem cercadas por uma Retangulo(BOX) tipo marca dágua. Numa de minhas apostilas, diz que eu preciso da CTRL3D.DLL e ainda usar o SET 3D LOOK ON. Muito bem....onde eu acho este DLL e como dar fazer este BOX ? FWAbraços ********************************** Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  5. sig_gilberto
    Amigos...quero fazer com que todas as minhas opções em um RADIO fiquem cercadas por uma Retangulo(BOX) tipo marca dágua. Numa de minhas apostilas, diz que eu preciso da CTRL3D.DLL e ainda usar o SET 3D LOOK ON. Muito bem....onde eu acho este DLL e como dar fazer este BOX ? FWAbraços ********************************** Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  6. sig_gilberto
    Amigos...Alguem de vcs foi a Fenasoft ? Foi Bom ? Interessante ? Houve alguma coisa sobre tendencias de plataformas ou mesmo linguagens de programação ? xHBAbraços ********************************** Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  7. sig_gilberto
    Amigos...Alguem de vcs foi a Fenasoft ? Foi Bom ? Interessante ? Houve alguma coisa sobre tendencias de plataformas ou mesmo linguagens de programação ? xHBAbraços ********************************** Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  8. sig_gilberto
    Amigos...Alguem de vcs foi a Fenasoft ? Foi Bom ? Interessante ? Houve alguma coisa sobre tendencias de plataformas ou mesmo linguagens de programação ? xHBAbraços ********************************** Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  9. sig_gilberto
    Òtimo...oh Docontra.... Seja bem vindo...coloque a sua assinatura ai pra todos aqui sabermos mais de você ! XHBAbraços citação:Boa tarde. O cara é o maior 171, ele agora ataca como Abelardo chaves, não caiam. meu amigo mandou o dindim e ficou sem ele. Ele mandou via sedex com protocolo de entrega e a assinatura do cara era pior do que de analfabeto. Não mandem o dinheiro, pois vão ficar sem ele. id=quote>id=quote>********************************** Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  10. sig_gilberto
    Senhores..Quando, Como e Aonde ? Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  11. sig_gilberto
    ...não tá mais aki quem falou... Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  12. sig_gilberto
    Legal Kapiaba...mais a rotina esta ignorando o varput() e o refresh(). Kapiaba e amigos....vamos fazer o seguinte: Esta pequena e singela rotininha esta virando uma colcha de retalhos, e eu estou ne "enbananando" todo e além disso, enchendo o saco(rsrsrs) de todo mundo e só subindo o tópico. Que tal se alguem, postasse uma rotina bem basicona e comentada de Cadastro/Alteração/Exclusão/Consulta baseada nos campos abaixo, para tanto eu, como outros profissionais iniciantes possam entender melhor. Pq as vezes é uma coisa tão simples que fica amarrando todo o trabalho. Tb_Clie.dbf Tb_Clie.ntx CdClien, C, 06 TpClien, C, 01 DsRazSo, C, 40 NumCnpj, C, 14 NunIest, c, 15 O q vcs acham de minha idéia ? FWAbraços Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  13. sig_gilberto
    Vagner..valeu..não esta mais dando erro. Agora, 1º Daonde vem esta variavel oWND, se ela não é usada por mim em lugar nenhum, nem na rotina de chamada principal ? 2º Qual comando/funçao eu uso pra limpar as variáveis após confirmar a inclusão/alteração ? Pois a rotina não esta limpando os campos após pressionar . 3º Onde eu acho algum artigo ou uma boa alma que me explique por que devo utilizar objetos junto com variaveis ao utilizar um @ GET ? FWAbraços Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  14. sig_gilberto
    Amigos deste Forum...Bom Dia! Novamente, vem a vocês... parte de minha rotina : Function xXSetFocus(oObj) Local oTempo := "" Define Timer oTempo Interval 10 Of oObj:Dlg Action (oObj:SetFocus(),oObj:SetPos(0),oTempo:Deactivate()) Activate Timer oTempo Retu("") Olha esta mensagem de erro : Application =========== Path and name: C:\teste\sistema.EXE (32 bits) Size: 472,576 bytes Time from start: 0 hours 0 mins 6 secs Error occurred at: 07/10/06, 11:32:30 Error description: Error BASE/1004 Message not found: TGET:DLG Args: Stack Calls =========== Called from __ERRRT_SBASE(0) Called from TGET:ERROR(179) Called from (b)HBOBJECT(105) Called from TGET:MSGNOTFOUND(0) Called from TGET:DLG(169) Called from XXSETFOCUS(68) Called from GRAVAR(62) Called from (b)CAD_CLIENTE(38) Called from TBUTTON:CLICK(0) Called from TBUTTON:HANDLEEVENT(0) Called from _FWH(0) Called from SENDMESSAGE(0) Called from TDIALOG:COMMAND(0) Called from TWINDOW:HANDLEEVENT(0) Called from TDIALOG:HANDLEEVENT(0) Called from DIALOGBOXINDIRECT(0) Called from TDIALOG:ACTIVATE(0) Called from CAD_CLIENTE(42) Called from SIST001(3) Called from (b)MAIN(25) Called from TBTNBMP:CLICK(0) Called from TBTNBMP:LBUTTONUP(0) Called from TWINDOW:HANDLEEVENT(0) Called from TBTNBMP:HANDLEEVENT(0) Called from _FWH(0) Called from WINRUN(0) Called from TWINDOW:ACTIVATE(0) Called from MAIN(32) Called from SISTEMA(9) Podem de ajudar...? FWAbraços Clipper53b + Xharbour 0.99.4 + Fwharbour 2.5 + XDev 0.33 "perguntando, se aprende a ensinar..."
  15. sig_gilberto
    Là Vai..... Amigo AtnSoft, onde precisamente acho um artigo que me explique sobre objetos e sua real necessidade, para que eu não confunda-os mais com variaveis ? Outra coisa: O WorkShop do forum em dicas, na hora de instalar esta dando problema. Com ele eu posso desenhar toda a arquitetura das minhas tela e abandonar o @ KUSPY,KUSPY (rsrsrs) como dis o Kapiaba ? FWAbraços Abaixo, o famoso código : #include "FiveWin.ch" Static Dlg Cad_Cliente() Return nil //---------------------------------------------------// Function Cad_Cliente() Local ocdclien, oTpclien, oNumcnpj, onumiest, oDsRazso Use Tb_Clie Index Tb_Clie WCdClien=space(06) WTpClien=space(01) WNumCnpj=space(14) WNumIest=space(15) WDsRazSo=space(40) Define Icon Wicon File "c:\fwh25\icons\people2.ico" Define Dialog Dlg Title "SIST:001 - Cadastro de Clientes" From 06,02 to 35,99 Icon Wicon @ 1 , 2 SAY "Código" @ 1 , 6 GET ocdClien Var WCdClien Pict "@K999999" Valid verwcd(ocdClien, otpclien, onumcnpj, onumiest, odsrazso, @wcdClien, @wtpclien, @Wnumcnpj, @Wnumiest, @wdsRazso) @ 2 , 2 SAY "Tipo" @ 2.2, 6 GET oTpclien Var wTpClien Pict "!" @ 3 , 2 SAY "Cnpj/Cpf" @ 3.3,6 GET onumCnpj Var wNumCnpj Pict "@K99999999999999" @ 4 , 2 SAY "I.Est/Rg" @ 4.6,6 GET onumiest Var wNumIest pict "@K999999999999999" @ 5 ,2 SAY "Razão Social" @ 5.6,6 GET odsrazso Var WDsRazSo Pict "@K!" @ 11 , 2 BUTTON "&OK" OF Dlg SIZE 50,12 ACTION Gravar(WcdClien,WTPClien,WNumCnpj,WNumIest,WDsRazSo,OCdClien) @ 11 ,12 BUTTON "&Cancelar" OF Dlg SIZE 50,12 ACTION Dlg:End() ACTIVATE DIALOG Dlg valid msgyesno("Deseja Sair ?",b_usuario) return nil //-------------------------------------------------// Static Function Gravar(P1,p2,p3,p4,p5,ocdclien) If Empty(WCdClien) Msgstop("Código de Cliente não informado.",b_usuario) return nil endif MsgRun("Aguarde...Atualizando Dados") Seek WCdclien If ! Found() Append Blank Endif Repl CdClien with p1 Repl TpClien with p2 Repl NumCnpj with p3 Repl NumIest with p3 Repl DsRazso with p5 xxsetfocus(ocdclien) return nil Function xXSetFocus(oObj) Local oTempo := "" Define Timer oTempo Interval 10 Of oObj:Dlg Action (oObj:SetFocus(),oObj:SetPos(0),oTempo:Deactivate()) Activate Timer oTempo Retu("") Function verwcd(ocdClien, otpclien, onumcnpj, onumiest, odsrazso, wcdClien, wtpclien, Wnumcnpj, Wnumiest, wdsRazso) if empty(wcdClien) msgstop("Informe Código do Cliente") Return(.F.) endif select tb_clie seek wcdclien if ! eof() WTpClien := TB_CLIE->TpClien WNumCnpj := TB_CLIE->NumCnpj WNumIest := TB_CLIE->NumIest WDSRazso := TB_CLIE->DsRazso ocdClien:Refresh() otpclien:Refresh() onumcnpj:Refresh() onumiest:Refresh() odsrazso:Refresh() endif Return(.T.) Function Teste_Vazio() Parameters b_var If empty(b_var) Msgstop("Preechimento Obrigatorio...",b_usuario) return .t. else return .f. endif "...quem pergunta, aprende a ensinar...."
  16. sig_gilberto
    AtnSoft valeu! Valeu mesmo!!!! Sera que algum dos amigos deste maravilhoso forum, teriam um tempinho pra montar para mim esta pequena e singela rotina de um forma fácil e simples de entender utilizando as mesmas variaveis e nomes de campos ? Porque já esta virando uma colcha de retalhos e acho que já estou deixando muitos dos que "ODEIAM" o @ KUSPY,KUSPY chateados comigo ! Olha só o erro que deu agora : Application =========== Path and name: C:\teste\sistemaEXE.EXE (32 bits) Size: 472,576 bytes Time from start: 0 hours 0 mins 4 secs Error occurred at: 06/07/2006, 12:38:27 Error description: Error BASE/1004 Message not found: TGET:DLG Args: Stack Calls =========== Called from __ERRRT_SBASE(0) Called from TGET:ERROR(179) Called from (b)HBOBJECT(105) Called from TGET:MSGNOTFOUND(0) Called from TGET:DLG(169) Called from XXSETFOCUS(68) Called from GRAVAR(62) Called from (b)CAD_CLIENTE(38) Called from TBUTTON:CLICK(0) Called from TBUTTON:HANDLEEVENT(0) Called from _FWH(0) Called from SENDMESSAGE(0) Called from TDIALOG:COMMAND(0) Called from TWINDOW:HANDLEEVENT(0) Called from TDIALOG:HANDLEEVENT(0) Called from DIALOGBOXINDIRECT(0) Called from TDIALOG:ACTIVATE(0) Called from CAD_CLIENTE(42) Called from SIST001(3) Called from (b)MAIN(29) Called from TBTNBMP:CLICK(0) Called from TBTNBMP:LBUTTONUP(0) Called from TWINDOW:HANDLEEVENT(0) Called from TBTNBMP:HANDLEEVENT(0) Called from _FWH(0) Called from WINRUN(0) Called from TWINDOW:ACTIVATE(0) Called from MAIN(36) Called from SISTEMA(13) "Nada é o que parece ser."
  17. sig_gilberto
    ...a rotina esta gravando o registro ! ...a rotina até busca e exibe o registro gravado! ...mais quando é pressionada para confirmar, ele após gravar/regravar o registro, ´da este erro acima, dizendo que a variavel ocdclien não existe. "Nada é o que parece ser."
  18. sig_gilberto
    Bom Dia! xxsetfocus(wcdclien) <--------- troque para xxsetfocus(oClien) . . . eu troquei............. xxsetfocus(ocdclien) e dá o seguinte erro : Application =========== Path and name: C:\teste\sistema.EXE (32 bits) Size: 472,576 bytes Time from start: 0 hours 0 mins 5 secs Error occurred at: 07/06/06, 11:04:38 Error description: Error BASE/1003 Variable does not exist: OCDCLIEN Stack Calls =========== Called from GRAVAR(61) Called from (b)CAD_CLIENTE(38) Called from TBUTTON:CLICK(0) Called from TBUTTON:HANDLEEVENT(0) Called from _FWH(0) Called from SENDMESSAGE(0) Called from TDIALOG:COMMAND(0) Called from TWINDOW:HANDLEEVENT(0) Called from TDIALOG:HANDLEEVENT(0) Called from DIALOGBOXINDIRECT(0) Called from TDIALOG:ACTIVATE(0) Called from CAD_CLIENTE(41) Called from SIST001(3) Called from (b)MAIN(25) Called from TBTNBMP:CLICK(0) Called from TBTNBMP:LBUTTONUP(0) Called from TWINDOW:HANDLEEVENT(0) Called from TBTNBMP:HANDLEEVENT(0) Called from _FWH(0) Called from WINRUN(0) Called from TWINDOW:ACTIVATE(0) Called from MAIN(32) Called from SISTEMA(9) "Nada é o que parece ser."
  19. sig_gilberto
    @ kuspy,kuspy citação:João.... Não é você que destesta @´s da vida??? Tá dando uma olhadinha???? AtnSoft - (Antenor) Harbour 0.46 Flex - Verce id=quote>id=quote> "Nada é o que parece ser."
  20. sig_gilberto
    Lá vai.... Application =========== Path and name: C:\teste\sistema.EXE (32 bits) Size: 472,064 bytes Time from start: 0 hours 0 mins 7 secs Error occurred at: 07/05/06, 18:00:37 Error description: Error BASE/1004 Class: 'CHARACTER' has no exported method: DLG Args: Stack Calls =========== Called from DLG(0) Called from XXSETFOCUS(67) Called from GRAVAR(61) Called from (b)CAD_CLIENTE(38) Called from TBUTTON:CLICK(0) Called from TBUTTON:HANDLEEVENT(0) Called from _FWH(0) Called from SENDMESSAGE(0) Called from TDIALOG:COMMAND(0) Called from TWINDOW:HANDLEEVENT(0) Called from TDIALOG:HANDLEEVENT(0) Called from DIALOGBOXINDIRECT(0) Called from TDIALOG:ACTIVATE(0) Called from CAD_CLIENTE(41) Called from SIST001(3) Called from (b)MAIN(25) Called from TBTNBMP:CLICK(0) Called from TBTNBMP:LBUTTONUP(0) Called from TWINDOW:HANDLEEVENT(0) Called from TBTNBMP:HANDLEEVENT(0) Called from _FWH(0) Called from WINRUN(0) Called from TWINDOW:ACTIVATE(0) Called from MAIN(32) Called from SISTEMA(9) "Nada é o que parece ser."
  21. sig_gilberto
    Certo meu amigo..... + aonde tem um transform ? citação:ERROR BASE /1004 Class: ´LOGICAL´ has no exported method:REFRESH Primeiro, se voce faz um check, precisa RETORNAR .T. OU .F. RETURN( .T. ) OU RETURN( .F. ) João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.60 - WorkShop.Exe Homenagem ao Fivewin 2.7 For [x]Harbour e ao Cris: id=quote>id=quote> "Nada é o que parece ser."
  22. sig_gilberto
    Primeiramente..obrigadu pela sua paciência... Antes mesmo de montar a DIALOG, ´dá o seguinte erro : Error BASE/1122 ARGUMENT ERROR : TRANSFORM(0) Estou a ká a olhar.....AONDE TEM UM TRANSFORM ? "Nada é o que parece ser."
  23. sig_gilberto
    Se for informado um código que não existe, ele nem sair do campo CLIENTE, fica parado. Se for informado um código que Jà EXISTA, ele da a mensagem CLIENTE EXISTENTE, e dai ele dá o seguinte erro.. ERROR BASE /1004 Class: ´LOGICAL´ has no exported method:REFRESH Bem...agradeço..vou tentar, fussando nos manuais e tbem aki no forum.. WFWAbraços ------------------------------------------------------------ #include "FiveWin.ch" Static Dlg Cad_Cliente() Return nil //----------------------------------------------// Function Cad_Cliente() Local OTpClien, ONumCnpj, ONumIest, ODsrazso Use Tb_Clie Index Tb_Clie WCdClien=space(06) WTpClien=space(01) WNumCnpj=space(14) WNumIest=space(15) WDsRazSo=space(40) Define Icon Wicon File "c:\fwh25\icons\people2.ico" Define Dialog Dlg Title "SIST:001 - Cadastro de Clientes" From 06,02 to 35,99 Icon Wicon @ 1 , 2 SAY "Código" @ 1 , 6 GET WCdClien Pict "@K999999" Valid verwcd(Teste_Vazio(WCdClien))=.f. @ 2 , 2 SAY "Tipo" @ 2.2, 6 GET OTpClien Var WTPClien Pict "!" @ 3 , 2 SAY "Cnpj/Cpf" @ 3.3,6 GET oNunCnpj Var WNumCnpj Pict "@K99999999999999" @ 4 , 2 SAY "I.Est/Rg" @ 4.6,6 GET oNumIest Var WNumIest Pict "@K999999999999999" @ 5 ,2 SAY "Razão Social" @ 5.6,6 GET oDsRazso Var WDsRazSo Pict "@K!" @ 11 , 2 BUTTON "&OK" OF Dlg SIZE 50,12 ACTION Gravar() @ 11 ,12 BUTTON "&Cancelar" OF Dlg SIZE 50,12 ACTION Dlg:End() ACTIVATE DIALOG Dlg valid msgyesno("Deseja Sair ?",b_usuario) return nil //-------------------------------------------------// Static Function Gravar() If Empty(WCdClien) Msgstop("Código de Cliente não informado.",b_usuario) return nil endif MsgRun("Aguarde...Atualizando Dados") Seek WCdclien If ! Found() Append Blank Endif Repl CdClien with WCdClien Repl TpClien with WTpClien Repl NumCnpj with WNumCnpj Repl NumIest with WNumIest Repl DsRazso with WDsRazSo xxsetfocus(wcdclien) return nil Function xXSetFocus(oObj) Local oTempo := "" Define Timer oTempo Interval 10 Of oObj:Dlg Action (oObj:SetFocus(),oObj:SetPos(0),oTempo:Deactivate()) Activate Timer oTempo Retu("") Function verwcd(OCdClien) select tb_clie seek wcdclien if ! eof() msgstop("Cliente Existente",b_usuario) WTpClien=TpClien WNumCnpj=NumCnpj WNumIest=NumIest WDSRazso=DsRazso OCdClien:Refresh() endif return Function Teste_Vazio() Parameters b_var If empty(b_var) Msgstop("Preechimento Obrigatorio...",b_usuario) return .t. else return .f. endif "Nada é o que parece ser."
  24. sig_gilberto
    ICO..Valeu...conforme vc deu as dicas eu fiz...mais ainda não exibe os dados nos campos após informar CLIENTE EXISTENTE, ou seja, me diz que o cliente existe mais não exibe os dados dele na tela...QUE BIXO SERà QUE TA ERRADO ? #include "FiveWin.ch" Static Dlg Cad_Cliente() Return nil //--------------------------------------------------// Function Cad_Cliente() Use Tb_Clie Index Tb_Clie WCdClien=space(06) WTpClien=space(01) WNumCnpj=space(14) WNumIest=space(15) WDsRazSo=space(40) Define Icon Wicon File "c:\fwh25\icons\people2.ico" Define Dialog Dlg Title "SIST:001 - Cadastro de Clientes" From 06,02 to 35,99 Icon Wicon @ 1 , 2 SAY "Código" @ 1 , 6 GET WCdClien Pict "@K999999" Valid verwcd(Teste_Vazio(WCdClien))=.f. @ 2 , 2 SAY "Tipo" @ 2.2, 6 GET WTPClien Pict "!" @ 3 , 2 SAY "Cnpj/Cpf" @ 3.3,6 GET WNumCnpj Pict "@K99999999999999" @ 4 , 2 SAY "I.Est/Rg" @ 4.6,6 GET WNumIest Pict "@K999999999999999" @ 5 ,2 SAY "Razão Social" @ 5.6,6 GET WDsRazSo Pict "@K!" @ 11 , 2 BUTTON "&OK" OF Dlg SIZE 50,12 ACTION Gravar() @ 11 ,12 BUTTON "&Cancelar" OF Dlg SIZE 50,12 ACTION Dlg:End() ACTIVATE DIALOG Dlg valid msgyesno("Deseja Sair ?",b_usuario) return nil //-------------------------------------------------------------------// Static Function Gravar() If Empty(WCdClien) Msgstop("Código de Cliente não informado.",b_usuario) return nil endif MsgRun("Aguarde...Atualizando Dados") Seek WCdclien If ! Found() Append Blank Endif Repl CdClien with WCdClien Repl TpClien with WTpClien Repl NumCnpj with WNumCnpj Repl NumIest with WNumIest Repl DsRazso with WDsRazSo xxsetfocus(wcdclien) return nil Function xXSetFocus(oObj) Local oTempo := "" Define Timer oTempo Interval 10 Of oObj:Dlg Action (oObj:SetFocus(),oObj:SetPos(0),oTempo:Deactivate()) Activate Timer oTempo Retu("") Function verwcd() select tb_clie seek wcdclien if ! eof() msgstop("Cliente Existente",b_usuario) WTpClien=TpClien WNumCnpj=NumCnpj WNumIest=NumIest WDSRazso=DsRazso endif return Function Teste_Vazio() Parameters b_var If empty(b_var) Msgstop("Preechimento Obrigatorio...",b_usuario) return .t. else return .f. endif "Nada é o que parece ser."
  25. sig_gilberto
    Amigos deste Forum..Bom Dia! Por favor,dêem uma olhadela neste pequeno código : #include "FiveWin.ch" Static Dlg Cad_Cliente() Return nil //-------------------------------------// Function Cad_Cliente() Use Tb_Clie Index Tb_Clie WCdClien=space(06) WTpClien=space(01) WNumCnpj=space(14) WNumIest=space(15) WDsRazSo=space(40) Define Icon Wicon File "c:\fwh25\icons\people2.ico" Define Dialog Dlg Title "SIST:001 - Cadastro de Clientes" From 06,02 to 35,99 Icon Wicon @ 1 , 2 SAY "Código" @ 1 , 6 GET WCdClien Pict "@K999999" && Valid Teste_Vazio(WCdClien)=.f. @ 2 , 2 SAY "Tipo" @ 2.2, 6 GET WTPClien Pict "!" @ 3 , 2 SAY "Cnpj/Cpf" @ 3.3,6 GET WNumCnpj Pict "@K99999999999999" @ 4 , 2 SAY "I.Est/Rg" @ 4.6,6 GET WNumIest Pict "@K999999999999999" @ 5 ,2 SAY "Razão Social" @ 5.6,6 GET WDsRazSo Pict "@K!" @ 11 , 2 BUTTON "&OK" OF Dlg SIZE 50,12 ACTION Gravar() @ 11 ,12 BUTTON "&Cancelar" OF Dlg SIZE 50,12 ACTION Dlg:End() ACTIVATE DIALOG Dlg valid msgyesno("Deseja Sair ?",b_usuario) return nil //-------------------------------------------------------------------// Static Function Gravar() MsgRun("Aguarde...Atualizando Dados") Seek WCdclien If ! Found() Append Blank Endif Repl CdClien with WCdClien Repl TpClien with WTpClien Repl NumCnpj with WNumCnpj Repl NumIest with WNumIest Repl DsRazso with WDsRazSo return nil //***********************************************// Estou já olhei os exemplos do Forum e tambem as pastas de meu micro(FW) e não encontrei, a resposta pra minha simples questão : 1º - Como Verificar se o Código do Cliente já existe para não incluí-lo novamente ? 2º - Caso ele exista... como editá-lo (trazer os valores dos campos parta as variáveis) ? 3º - Como zerar (apagar) os valores dos campos e voltar o foco para o 1º campo(cdclien) após pressionar ou mesmo o ? 4º Alguém tem alguma ídeia de como melhorar esta telinha ? 5º Alguém pode ajudar ? Um FWAbraço a Todos !!! "Nada é o que parece ser."
×
×
  • Create New...