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