Clipper On Line • Ver Tópico - SERÁ QUE CONSIGO ?

SERÁ QUE CONSIGO ?

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

SERÁ QUE CONSIGO ?

Mensagempor WALTER GUNTZEL » 25 Jul 2006 22:32

Pessoal, sou novo aqui no fórum e também com a minigui. sempre fui programador clipper e agora pretendo me atualizar!
Minha dúvida: estou tentando converter um sisteminha que tinha em clipper para cadastro de clientes. Como faço para abrir os campos para a digitação de dados ?
#INCLUDE "MINIGUI.CH"
#include "Dbstruct.ch"
#include "winprint.ch"
#include "common.ch"

MEMVAR TituloImp
REQUEST HB_LANG_PT
PROCEDURE MAIN()
HB_LANGSELECT("PT") // Fala portugues

   SET CENTURY ON
   SET DELETED ON
   set date french
   SET BROWSESYNC ON
        Set Navigation Extended //TAB y ENTER
        SET DATE FORMAT "dd-mm-yyyy"
        SET EPOCH TO YEAR(DATE())-50

   
DEFINE WINDOW TELA_1;
  At 0, 0 ;
  Width 800 ;
  Height 600 ;
  Title 'SMARJA' ;
  Icon 'SMARJA.ICO' ;
  Main ;
  NotifyIcon 'SMARJA.ICO';
  NOMAXIMIZE NOSIZE
  *;
  *BACKCOLOR {216, 216, 216};
  *FONT 'MS Sans Serif'   ;
  *SIZE 8

DEFINE MAIN MENU
  POPUP 'Cadastros'
        item 'Associados' Action CADAASSOCIADO()
        item 'Clientes' ACTION desenvo()
        item 'Areias/Preços' ACTION desenvo()
   item 'Contratadas' action desenvo()
   item 'Municípios' action desenvo()
   item 'Índices' action desenvo()
   item 'Imobilizado' action desenvo()
   item 'Contas' action desenvo()
   item 'Embarcação' action desenvo()
   item 'Telefones' action desenvo()
   item 'Despesas' action desenvo()
   item 'Fornecedores' action desenvo()
     SEPARATOR
       ITEM 'Sair' Action Tela_1.release
  end popup
  POPUP 'Movimento'
   item 'Dig.Notas Fiscais' action desenvo()
   item 'Faturamento' action desenvo()
   item 'Livro Caixa' action desenvo()
   item 'Dig.Relação de Cheques' action desenvo()
   item 'N.Fiscais de Entrada' action desenvo()
   item 'Emissão de Bloquete' action desenvo()
   item 'Emissão de Recibos' action desenvo()
   item 'Contas a Pagar/Receber' action desenvo()
   item 'Movimento Bancário' action desenvo()
   item 'Acertos' action desenvo()
   item 'Emissão de Conferência' action desenvo()
   item 'Preparar arquivo Banco' action desenvo()
   item 'N.Fiscal Prest.Serviço' action desenvo()
   item 'Controle de Talões' action desenvo()
  end popup
  POPUP 'Relatórios'
   POPUP 'Tabelas'
      item 'Tabela de Areia(lista)' action desenvo()         
      item 'Tabela de Frete(lista)' action desenvo()
      item 'Preços de Areia' action desenvo()
   end popup
   item 'Relatório Quinzenal' action desenvo()
   POPUP 'Cliente+Draga+Nota'
      item 'Cliente+Draga+Nota(2)' action desenvo()         
      item 'Cliente+Total' action desenvo()
      item 'Contratadas+Draga+Nota' action desenvo()
      item 'Barco+Cliente+Draga' action desenvo()
   end popup   
   item 'Município+Emp.+Draga' action desenvo()
   item 'Emissão de Etiquetas' action desenvo()
   item 'Relatório de Índices' action desenvo()
   item 'Cadastral da N.Fiscal' action desenvo()
   item 'Faturas Emitidas' action desenvo()
   item 'Carta Pendência' action desenvo()
   item 'M3 Draga' action desenvo()
   item 'M3 a maior ou a menor' action desenvo()
   POPUP 'Financeiro'
      item 'Físico Financeiro' action desenvo()   
      item 'Físico Fin.Detalhado' action desenvo()   
      item 'Financeiro' action desenvo()
      item 'Guias de ISSQN' action desenvo()
      item 'Recibos de ISQqN' action desenvo()
      item 'Contas a Pagar/Receber' action desenvo()
      item 'Cheques emitidos' action desenvo()
      item 'Processo ger.C.F.E.M.' action desenvo()
      item 'Guias de C.F.E.M.' action desenvo()
      item 'Acertos' action desenvo()
      item 'Relatório de ISSQN' action desenvo()
      item 'Rel.NFS PS Contratadas' action desenvo()
      item 'Rel.ISSQN Prefeituras' action desenvo()
   end popup
        item 'Draga+PK+Município' action desenvo()
   item 'Pk+Draga+Município' action desenvo()
   item 'Totalizador por Pk' action desenvo()
   item 'Registro de Duplicatas' action desenvo()
   item 'Ficha de Apuração CFEM' action desenvo()
  end popup
  POPUP 'Utilitários'
   item 'Banco de Dados' action desenvo()
   item 'Indexar Arquivos' action desenvo()
   item 'Exportação' action desenvo()
   item 'Importação' action desenvo()
  end POPUP
END MENU

DEFINE STATUSBAR
  STATUSITEM "Copyright "+ Chr(169) + " Walter Güntzel. All rights reserved" WIDTH 160
  KEYBOARD
  CLOCK
  DATE
END STATUSBAR

DEFINE SPLITBOX
  DEFINE TOOLBAR TTOO_1 BUTTONSIZE 55,45 FONT 'Arial' SIZE 8 FLAT
   BUTTON BOTAO_10 ;
   CAPTION 'Agenda';
   picture '\AREIA\img\TELEFONE.bmp';
        ACTION desenvo()   

     BUTTON BOTAO_11 ;
   CAPTION 'Clientes';
   picture '\AREIA\img\people.bmp';
   ACTION desenvo()   
 
   BUTTON BOTAO_12 ;
   CAPTION 'Vendedor';
   picture '\AREIA\img\vende.bmp';
   ACTION desenvo()   


   BUTTON BOTAO_13 ;
   CAPTION 'Sair';
   picture '\areia\img\exit.bmp';
   Action Tela_1.release   

  END TOOLBAR

END SPLITBOX   


  @ 280,20 LABEL Label_20 ;
  VALUE 'Smarja';
  WIDTH 500 ;
  HEIGHT 220 ;
  FONT 'Rage Italic' SIZE 130 ;
  FONTCOLOR GRAY 

END WINDOW
CENTER WINDOW TELA_1
ACTIVATE WINDOW TELA_1
RETURN

/////////////////////////////// CADASTROS ///////////////////////////

STATIC FUNCTION CADAASSOCIADO()
DEFINE WINDOW TELA_2;
  At 0,0 ;
  Width 570 ;
  Height 380 ;
  Title 'Cadastro de Associados';
  TOPMOST

  @ 10,10 LABEL Label_1 VALUE 'Nome completo do(a) sócio(a) :' WIDTH 270 HEIGHT 22
  @ 30,10 LABEL Label_2 VALUE 'Nacionalidade :' WIDTH 170 HEIGHT 22
  @ 30,300 LABEL Label_22 VALUE 'Profissão :' WIDTH 170 HEIGHT 22
  @ 50,10 LABEL Label_3 VALUE 'Estado Civil : ' WIDTH 270 HEIGHT 22
  @ 50,300 LABEL Label_33 VALUE 'Data nascimento : ' WIDTH 270 HEIGHT 22
  @ 70,10 LABEL Label_4 VALUE 'Natural de :' WIDTH 170 HEIGHT 22
  @ 90,10 LABEL Label_5 VALUE 'Cart.Ident.RG :' WIDTH 170 HEIGHT 22
  @ 90,280 LABEL Label_55 VALUE 'SSP : ' WIDTH 100 HEIGHT 22
  @ 90,350 LABEL Label_56 VALUE 'CIC : ' WIDTH 100 HEIGHT 22
  @ 110,10 LABEL Label_66 VALUE 'Tel.Coml.:' WIDTH 170 HEIGHT 22
  @ 110,250 LABEL Label_67 VALUE 'Tel.Res.:' WIDTH 170 HEIGHT 22
  @ 110,400 LABEL Label_68 VALUE 'Celular :' WIDTH 170 HEIGHT 22
  @ 130,10 LABEL Label_7 VALUE 'Endereço Residencial :' WIDTH 200 HEIGHT 22
  @ 150,10 LABEL Label_8 VALUE 'Cep :' WIDTH 100 HEIGHT 22
  @ 150,180 LABEL Label_88 VALUE 'Município :' WIDTH 170 HEIGHT 22
  @ 170,10 LABEL Label_9 VALUE 'Esposo(a) :' WIDTH 170 HEIGHT 22
  @ 170,350 LABEL Label_99 VALUE 'Data Nascimento :' WIDTH 170 HEIGHT 22
  @ 190,10 LABEL Label_10 VALUE 'Nome filhos(as) : ' WIDTH 170 HEIGHT 22
  @ 210,10 LABEL Label_11 VALUE 'Vínculos : ' WIDTH 170 HEIGHT 22
  @ 230,10 LABEL Label_12 VALUE 'Bancos :' WIDTH 170 HEIGHT 22
  @ 250,10 LABEL Label_13 VALUE 'E-mail :' WIDTH 170 HEIGHT 22


  DRAW panel IN WINDOW tela_2 AT 292,05 TO 335,555

  @ 300,10 BUTTONEX BOTAO_1 ;
  CAPTION 'Inclui';
  TOOLTIP 'Inclusão de associado';
  ACTION INCLUIASSOCI()

  @ 300,120 BUTTONEX BOTAO_2 ;
  CAPTION 'Altera' ;
  TOOLTIP 'Alterar associado';
  ACTION desenvo()   

  @ 300,230 BUTTONEX BOTAO_3 ;
  CAPTION 'Exclui' ;
  TOOLTIP 'Exclusão de associado';
  ACTION desenvo()   

  @ 300,340 BUTTONEX BOTAO_5 ;
  CAPTION 'Consulta' ;
  tooltip 'Consulta associados';   
  ACTION desenvo()   
   

  @ 300,450 BUTTONEX BOTAO_6 ;
  CAPTION 'Sair' ;
  tooltip 'Sai desta tela, vai para tela principal';   
  ACTION ThisWindow.Release   
   
END WINDOW
CENTER WINDOW TELA_2
ACTIVATE WINDOW TELA_2
RETURN

STATIC FUNCTION INCLUIASSOCI()

DEFINE WINDOW TELA_3;
  At 0,0 ;
  Width 570 ;
  Height 380 ;
  TOPMOST

  @ 10,200 TEXTBOX WQUAN_1 ;
      WIDTH 40;
      VALUE 50 ;
      NUMERIC ;
      tooltip 'nome do cliente';
      MAXLENGTH 3 RIGHTALIGN[/b]   

END WINDOW
CENTER WINDOW TELA_3
*ACTIVATE WINDOW TELA_3
RETURN

function desenvo

return
Nota de Moderação:
Pablo César: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
WALTER GUNTZEL
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 9
Data de registro: 21 Jul 2006 19:01
Cidade/Estado: LAJEADO/RS
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor Stanis Luksys » 27 Jul 2006 04:11

Ahhh, vai tentando que consegue sim... hehehe... brincadeira.


Bem...

Não entendi a pergunta, mas pelo que pude notar, a unica janela que tem algum TEXTBOX para digitação está com a linha que a ativa comentada...

Acho que se vc descomentar e de qualquer lugar do programa chamar INCLUIASSOCI() vai aparecer os campos...

Ou não é nada disso a pergunta?


Ok...
Stanis Luksys
sites.google.com/hblibs

Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
Avatar de usuário

Stanis Luksys
Colaborador

Colaborador
 
Mensagens: 1331
Data de registro: 18 Jun 2005 03:04
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 2 vezes

Mensagempor WALTER GUNTZEL » 27 Jul 2006 17:18

Valeu meu amigo, exatamente isso... sabes como é que é, um cara como eu que desenvolve em clipper há 2 décadas têm algumas manias .hihihih, mans vou me acostumar. Só tô achando meio difícil arrumar as telas. Veja como eu estou me saindo e me dê sua opinião.... Outra coisa, venho acompanhando este fórum há muito tempo e vejo que tu és um dos programadores que mais participam...!! Valeu, espero um dia poder ajudar como tu estás ajudando . Abraço
#INCLUDE "MINIGUI.CH"
#include "Dbstruct.ch"
#include "winprint.ch"
#include "common.ch"
#INCLUDE "INKEY.CH"
#INCLUDE "FILEIO.CH"
#INCLUDE "COLOR.CH"
#INCLUDE "DIRECTRY.CH"
#INCLUDE "AREIA.CH"

MEMVAR TituloImp

REQUEST HB_LANG_PT

PROCEDURE MAIN()

   
        HB_LANGSELECT("PT") // Fala portugues
   SETTOOLTIPBALLOON(.T.)
   SET CENTURY ON
   SET DELETED ON
   set date french
   SET BROWSESYNC ON
        Set Navigation Extended //TAB y ENTER
        SET DATE FORMAT "dd-mm-yyyy"
        SET EPOCH TO YEAR(DATE())-50
        PROINI()

   
DEFINE WINDOW TELA_1;
  At 0, 0 ;
  Width 800 ;
  Height 600 ;
  Title 'SMARJA' ;
  Icon 'SMARJA.ICO' ;
  Main ;
  NotifyIcon 'SMARJA.ICO';
  NOMAXIMIZE NOSIZE
  *;
  *BACKCOLOR {216, 216, 216};
  *FONT 'MS Sans Serif'   ;
  *SIZE 8

DEFINE SPLITBOX
  DEFINE TOOLBAR TTOO_1 BUTTONSIZE 70,40 FONT 'Arial' SIZE 8 FLAT
   
        BUTTON BOTAO_10 ;
   CAPTION 'Agenda';
   picture '\AREIA\img\TELEFONE.bmp';
        ACTION desenvo();
   TOOLTIP "Agenda de Telefones";

     BUTTON BOTAO_11 ;
   CAPTION 'Clientes';
   picture '\AREIA\img\people.bmp';
   ACTION desenvo()   

   BUTTON BOTAO_12 ;
   CAPTION 'Vendedor';
   picture '\AREIA\img\vende.bmp';
   ACTION desenvo()   

        BUTTON BOTAO_13 ;
   CAPTION 'Calculadora';
        PICTURE "\AREIA\IMG\CALC.bmp";
        ACTION PROCAL()
       
   BUTTON BOTAO_14 ;
   CAPTION 'Sair';
   picture '\areia\img\exit.bmp';
        Action SAIR_SISTEMA();
        TOOLTIP "Sair do Sistema"

  END TOOLBAR

DEFINE MAIN MENU
  POPUP 'Cadastros'
        item 'Associados' Action CADAASSOCIADO()
        item 'Clientes' ACTION desenvo()
        item 'Areias/Preços' ACTION desenvo()
   item 'Contratadas' action desenvo()
   item 'Municípios' action desenvo()
   item 'Índices' action desenvo()
   item 'Imobilizado' action desenvo()
   item 'Contas' action desenvo()
   item 'Embarcação' action desenvo()
   item 'Telefones' action desenvo()
   item 'Despesas' action desenvo()
   item 'Fornecedores' action desenvo()
     SEPARATOR
       ITEM 'Sair' Action Tela_1.release
  end popup
  POPUP 'Movimento'
   item 'Dig.Notas Fiscais' action desenvo()
   item 'Faturamento' action desenvo()
   item 'Livro Caixa' action desenvo()
   item 'Dig.Relação de Cheques' action desenvo()
   item 'N.Fiscais de Entrada' action desenvo()
   item 'Emissão de Bloquete' action desenvo()
   item 'Emissão de Recibos' action desenvo()
   item 'Contas a Pagar/Receber' action desenvo()
   item 'Movimento Bancário' action desenvo()
   item 'Acertos' action desenvo()
   item 'Emissão de Conferência' action desenvo()
   item 'Preparar arquivo Banco' action desenvo()
   item 'N.Fiscal Prest.Serviço' action desenvo()
   item 'Controle de Talões' action desenvo()
  end popup
  POPUP 'Relatórios'
   POPUP 'Tabelas'
      item 'Tabela de Areia(lista)' action desenvo()         
      item 'Tabela de Frete(lista)' action desenvo()
      item 'Preços de Areia' action desenvo()
   end popup
   item 'Relatório Quinzenal' action desenvo()
   POPUP 'Cliente+Draga+Nota'
      item 'Cliente+Draga+Nota(2)' action desenvo()         
      item 'Cliente+Total' action desenvo()
      item 'Contratadas+Draga+Nota' action desenvo()
      item 'Barco+Cliente+Draga' action desenvo()
   end popup   
   item 'Município+Emp.+Draga' action desenvo()
   item 'Emissão de Etiquetas' action desenvo()
   item 'Relatório de Índices' action desenvo()
   item 'Cadastral da N.Fiscal' action desenvo()
   item 'Faturas Emitidas' action desenvo()
   item 'Carta Pendência' action desenvo()
   item 'M3 Draga' action desenvo()
   item 'M3 a maior ou a menor' action desenvo()
   POPUP 'Financeiro'
      item 'Físico Financeiro' action desenvo()   
      item 'Físico Fin.Detalhado' action desenvo()   
      item 'Financeiro' action desenvo()
      item 'Guias de ISSQN' action desenvo()
      item 'Recibos de ISQqN' action desenvo()
      item 'Contas a Pagar/Receber' action desenvo()
      item 'Cheques emitidos' action desenvo()
      item 'Processo ger.C.F.E.M.' action desenvo()
      item 'Guias de C.F.E.M.' action desenvo()
      item 'Acertos' action desenvo()
      item 'Relatório de ISSQN' action desenvo()
      item 'Rel.NFS PS Contratadas' action desenvo()
      item 'Rel.ISSQN Prefeituras' action desenvo()
   end popup
        item 'Draga+PK+Município' action desenvo()
   item 'Pk+Draga+Município' action desenvo()
   item 'Totalizador por Pk' action desenvo()
   item 'Registro de Duplicatas' action desenvo()
   item 'Ficha de Apuração CFEM' action desenvo()
  end popup
  POPUP 'Utilitários'
   item 'Banco de Dados' action desenvo()
   item 'Indexar Arquivos' action desenvo()
   item 'Exportação' action desenvo()
   item 'Importação' action desenvo()
  end POPUP
END MENU

DEFINE STATUSBAR
  STATUSITEM "Copyright "+ Chr(169) + " Walter Güntzel. All rights reserved" WIDTH 160
  KEYBOARD
  CLOCK
  DATE
END STATUSBAR

END SPLITBOX   


  @ 280,20 LABEL Label_20 ;
  VALUE 'Smarja';
  WIDTH 500 ;
  HEIGHT 230 ;
  FONT 'Rage Italic' SIZE 135 ;
  FONTCOLOR GRAY 

  @ 430,500 LABEL Label_21 ;
  VALUE 'Gestor Areia';
  WIDTH 180 ;
  HEIGHT 60 ;
  FONT 'Palace Script MT' SIZE 36 ;
  FONTCOLOR VERMELHO

END WINDOW

SENDMESSAGE(GETFORMTOOLTIPHANDLE("tela_1"), TTM_SETTIPTEXTCOLOR, RGB(255, 0, 0), 0)

CENTER WINDOW TELA_1
ACTIVATE WINDOW TELA_1
RETURN

#INCLUDE "FUNCAO.PRG"

/////////////////////////////// CADASTROS ///////////////////////////

STATIC FUNCTION CADAASSOCIADO()
DEFINE WINDOW TELA_2;
  At 0,0 ;
  Width 570 ;
  Height 440 ;
  Title 'Cadastro de Associados';
  TOPMOST

  TELA_CADA_ASSO()

  DRAW panel IN WINDOW tela_2 AT 340,05 TO 390,555

  @ 350,10 BUTTONEX BOTAO_1 ;
  CAPTION 'Inclui';
  TOOLTIP 'Inclusão de associado';
  ACTION INCLUIASSOCI()

  @ 350,120 BUTTONEX BOTAO_2 ;
  CAPTION 'Altera' ;
  TOOLTIP 'Alterar associado';
  ACTION desenvo()   

  @ 350,230 BUTTONEX BOTAO_3 ;
  CAPTION 'Exclui' ;
  TOOLTIP 'Exclusão de associado';
  ACTION desenvo()   

  @ 350,340 BUTTONEX BOTAO_5 ;
  CAPTION 'Consulta' ;
  tooltip 'Consulta associados';   
  ACTION desenvo()   
   

  @ 350,450 BUTTONEX BOTAO_6 ;
  CAPTION 'Sair' ;
  tooltip 'Sai desta tela, vai para tela principal';   
  ACTION ThisWindow.Release   
   

   
END WINDOW
CENTER WINDOW TELA_2
ACTIVATE WINDOW TELA_2
RETURN

STATIC FUNCTION INCLUIASSOCI()
DEFINE WINDOW TELA_3;
  At 0,0 ;
  Width 570 ;
  Height 440 ;
  TOPMOST

  TELA_2.RELEASE
  TELA_CADA_ASSO()

  WNOME:=SPACE(30)
  wprofi:=space(30)
  wdatan:=date()
  WNATURAL:=SPACE(30)
  WCI:=SPACE(10)
  WSSP:=SPACE(2)
  WCIC:=SPACE(11)
  @ 07,200 TEXTBOX WNOME WIDTH 350
  @ 33,100 COMBOBOXEX wnasc ITEMS {'Brasileira','Estrangeira'} VALUE 1 DISPLAYEDIT
  @ 33,370 TEXTBOX Wprofi WIDTH 180   
  @ 57,100 COMBOBOXEX westciv ITEMS {'Casado(a)','Separado(a)','Divorciado(a)','Solteiro(a)','Outro'} VALUE 1
  @ 57,405 DATEPICKER WDATAN
  @ 82,100 TEXTBOX WNATURAL WIDTH 350
  @ 107,110 TEXTBOX WCI INPUTMASK '99999999-99'
  @ 107,315 TEXTBOX WSSP WIDTH 25
  @ 107,385 TEXTBOX WCIC INPUTMASK '999.999.999/99'

  @ 350,450 BUTTONEX BOTAO_7 ;
  CAPTION 'Sair' ;
  tooltip 'Sai desta tela, vai para tela principal';   
  ACTION ThisWindow.Release   
   

END WINDOW
CENTER WINDOW TELA_3
ACTIVATE WINDOW TELA_3
RETURN

PROCEDURE SAIR_SISTEMA()
   IF MSGYESNO("Deseja sair do Sistema ??","Atenção...")
      CLOSE DATABASES
      CLOSE ALL
      TELA_1.RELEASE
   ENDIF
RETURN(NIL)

FUNCTION DESENVO
modulo()
return

FUNCTION TELA_CADA_ASSO()
@ 10,10 LABEL Label_1 VALUE 'Nome completo do(a) sócio(a) :' WIDTH 270 HEIGHT 22
@ 35,10 LABEL Label_2 VALUE 'Nacionalidade :'
@ 35,300 LABEL Label_22 VALUE 'Profissão :'
@ 60,10 LABEL Label_3 VALUE 'Estado Civil :'
@ 60,300 LABEL Label_33 VALUE 'Data nascimento :'
@ 85,10 LABEL Label_4 VALUE 'Natural de :'
@ 110,10 LABEL Label_5 VALUE 'Cart.Ident.RG :'
@ 110,280 LABEL Label_55 VALUE 'SSP :' WIDTH 45
@ 110,350 LABEL Label_56 VALUE 'CIC :' WIDTH 45
@ 135,10 LABEL Label_66 VALUE 'Tel.Coml.:'
@ 135,250 LABEL Label_67 VALUE 'Tel.Res.:'
@ 135,400 LABEL Label_68 VALUE 'Celular :'
@ 160,10 LABEL Label_7 VALUE 'Endereço Residencial :' WIDTH 200 HEIGHT 22
@ 185,10 LABEL Label_8 VALUE 'Cep :'
@ 185,180 LABEL Label_88 VALUE 'Município :'
@ 210,10 LABEL Label_9 VALUE 'Esposo(a) :'
@ 210,350 LABEL Label_99 VALUE 'Data Nascimento :'
@ 235,10 LABEL Label_10 VALUE 'Nome filhos(as) : '
@ 260,10 LABEL Label_11 VALUE 'Vínculos : '
@ 285,10 LABEL Label_12 VALUE 'Bancos :'
@ 310,10 LABEL Label_13 VALUE 'E-mail :'
Nota de Moderação:
Pablo César: Mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: Clique aqui
WALTER GUNTZEL
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 9
Data de registro: 21 Jul 2006 19:01
Cidade/Estado: LAJEADO/RS
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor Stanis Luksys » 27 Jul 2006 20:22

Olá,

No começo é assim mesmo, mas no fim vc vai notar mais as facilidades do que as dificuldades, algo como sair do C pra programar em Clipper.

Se quer um dica que pode lhe ser realmente útil sugiro que você baixe a IDE no site do Roberto Lopez, criador da minigui, e a use para montar suas telas, isso lhe poupará preciosas de horas de programação.

Se você já viu pelo menos uma vez na vida um ambiente de desenvolvimento como do Delphi ou VB não terá dificualdades em trabalhar com esta IDE.

fazendo sua tela pela IDE seu prg fica enxuto, mais ou menos assim:

Function Main()
load window NOME_DA_JANELA
activate window NOME_DA_JANELA
Return (NIL)


Facinhuuuu, facinhuuuu...

Os eventos você controla pela propria IDE nas propriedades dos objetos, ou se preferir (recomendo) diretamente no arquivo FMG gerado.

Aconselho mesmo começar a programar pela IDE e sempre analisar os arquivos FMG, somente depois de entender seu funcionamento passar a usar o tal @...TEXTBOX e etc.


Falou aí mano, continue postando.
Stanis Luksys
sites.google.com/hblibs

Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
Avatar de usuário

Stanis Luksys
Colaborador

Colaborador
 
Mensagens: 1331
Data de registro: 18 Jun 2005 03:04
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 2 vezes

Mensagempor WALTER GUNTZEL » 27 Jul 2006 22:21

Blz.... Stanis Luksys, já tentei instalar a IDE mans dá problema. Sempre dá "No Active Project! ". Olhei as configurações : Harbour Folder: C:\minigui\harbour --- bcc folder: c:\bcc56 . Uso o c 5.6 e minigui 1.2 18e.
a IDE 0.2.5
Meu amigo, eu já tô "bobo de vê" como é legal programar nesta linguagem (já programei em C,Assembler,Cobol,Basic,Clipper,Pascal).

Um abraço e + uma vez obrigado em responder.
WALTER GUNTZEL
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 9
Data de registro: 21 Jul 2006 19:01
Cidade/Estado: LAJEADO/RS
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro