25 Jul 2006 22:32
#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
27 Jul 2006 04:11
27 Jul 2006 17:18
#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 :'
27 Jul 2006 20:22
27 Jul 2006 22:21