Fórum OLA GALERA PRECISO DE UM HELP JÁ NO INICIO DE 2013, AI FELIZ ANO NOVO A TODOS QUE DEUS OS ILUMINE E DE GRAÇAS... #431714
02/01/2013
0
FECHEI O SISTEMA NA SEXTA FEIRA TUDO CERTINHO, AGORA EXATAMENTE HOJE DIA 2 O BICHO PEGOU AO ABRIR E TENTAR COMPILA-LO ELE
APRESENTA O SEGUINTE ERRO.
MENSAGEM DE ERRO
---------------------------------------------------------------------
project commerce.exe raised excepition class eread error with message
invalid property balue, use step or run to continue.
---------------------------------------------------------------------
QUANDO DOU CONTRO F2 ELE VOLTA NA TELA DO DELPHI NA CONPILAÇÃO E MOSTRA QIE A SEGUINTE LINHA ESTA COM ERRO LINHA ABAIXO
DEMARCADA.
----------------------------------------------------------------------
program COMMERCE;
uses
Forms,
U_PRINCIPAL in 'U_PRINCIPAL.pas' ,
Udm_DADOS in 'Udm_DADOS.pas' {DM_DADOS: TDataModule},
U_Cidades in 'U_Cidades.pas' ,
U_SOBRE in 'U_SOBRE.pas' ,
U_Bairro in 'U_Bairro.pas' ,
U_Logradouro in 'U_Logradouro.pas' ,
U_CARGOS in 'U_CARGOS.pas' ,
U_CLIENTES in 'U_CLIENTES.pas' ,
u_funcionarios in 'u_funcionarios.pas' ,
URELCIDADES in 'URELCIDADES.pas' ,
U_consulta_cidade in 'U_consulta_cidade.pas' ,
U_SPLACH in 'U_SPLACH.pas' ,
U_Fornecedores in 'U_Fornecedores.pas' ,
U_ESTOQUE in 'U_ESTOQUE.pas' ,
U_ICMS in 'U_ICMS.pas' ,
U_IPI in 'U_IPI.pas' ,
U_ISS in 'U_ISS.pas' ;
{$R *.res}
begin
Application.Initialize;
Application.Title := 'COMMERCE';
Application.CreateForm(TFRM_PRINCIPAL, FRM_PRINCIPAL);
Application.CreateForm(TDM_DADOS, DM_DADOS); "ERRO NESTA LINHA"
Application.Run;
end.
ALGUEM PODE ME AJUDAR?
APRESENTA O SEGUINTE ERRO.
MENSAGEM DE ERRO
---------------------------------------------------------------------
project commerce.exe raised excepition class eread error with message
invalid property balue, use step or run to continue.
---------------------------------------------------------------------
QUANDO DOU CONTRO F2 ELE VOLTA NA TELA DO DELPHI NA CONPILAÇÃO E MOSTRA QIE A SEGUINTE LINHA ESTA COM ERRO LINHA ABAIXO
DEMARCADA.
----------------------------------------------------------------------
program COMMERCE;
uses
Forms,
U_PRINCIPAL in 'U_PRINCIPAL.pas' ,
Udm_DADOS in 'Udm_DADOS.pas' {DM_DADOS: TDataModule},
U_Cidades in 'U_Cidades.pas' ,
U_SOBRE in 'U_SOBRE.pas' ,
U_Bairro in 'U_Bairro.pas' ,
U_Logradouro in 'U_Logradouro.pas' ,
U_CARGOS in 'U_CARGOS.pas' ,
U_CLIENTES in 'U_CLIENTES.pas' ,
u_funcionarios in 'u_funcionarios.pas' ,
URELCIDADES in 'URELCIDADES.pas' ,
U_consulta_cidade in 'U_consulta_cidade.pas' ,
U_SPLACH in 'U_SPLACH.pas' ,
U_Fornecedores in 'U_Fornecedores.pas' ,
U_ESTOQUE in 'U_ESTOQUE.pas' ,
U_ICMS in 'U_ICMS.pas' ,
U_IPI in 'U_IPI.pas' ,
U_ISS in 'U_ISS.pas' ;
{$R *.res}
begin
Application.Initialize;
Application.Title := 'COMMERCE';
Application.CreateForm(TFRM_PRINCIPAL, FRM_PRINCIPAL);
Application.CreateForm(TDM_DADOS, DM_DADOS); "ERRO NESTA LINHA"
Application.Run;
end.
ALGUEM PODE ME AJUDAR?
Joao Vieiradossantos
Curtir tópico
+ 0
Responder
Posts
02/01/2013
Joel Rodrigues
Opa, João, beleza?
Primeiro deixa eu te pedir um favorzão: quando for abrir um tópico, use um título que remeta à sua dúvida, evite esse tipo de mensagem no título do post, você pode usar o corpo da mensagem para isso. Assim, quando alguém vir o tópico na página, já terá uma ideia do que se trata e então poderá te ajudar mais rapidamente.
Com relação ao problema, há algum código no evento OnCreate desse form/datamodule? Se sim, põe um breakpoint lá e tenta depurar pra ver onde exatamente ocorre a exceção.
Um abraço e feliz 2013.
Primeiro deixa eu te pedir um favorzão: quando for abrir um tópico, use um título que remeta à sua dúvida, evite esse tipo de mensagem no título do post, você pode usar o corpo da mensagem para isso. Assim, quando alguém vir o tópico na página, já terá uma ideia do que se trata e então poderá te ajudar mais rapidamente.
Com relação ao problema, há algum código no evento OnCreate desse form/datamodule? Se sim, põe um breakpoint lá e tenta depurar pra ver onde exatamente ocorre a exceção.
Um abraço e feliz 2013.
Responder
Gostei + 0
02/01/2013
Joao Vieiradossantos
[Error] Udm_DADOS.pas(186): Unsatisfied forward or external declaration: 'TDM_DADOS.DataModuleCreate'
[Fatal Error] U_PRINCIPAL.pas(91): Could not compile used unit 'Udm_DADOS.pas'
BOM AMIGO O ERRO PERSISTE, IMPRECIONANTE JÁ EVIREI O SISTEMA MAIS NAO ACHO NADA...
[Fatal Error] U_PRINCIPAL.pas(91): Could not compile used unit 'Udm_DADOS.pas'
BOM AMIGO O ERRO PERSISTE, IMPRECIONANTE JÁ EVIREI O SISTEMA MAIS NAO ACHO NADA...
Responder
Gostei + 0
02/01/2013
Joel Rodrigues
A mensagem "Unsatisfied forward or external declaration: 'TDM_DADOS.DataModuleCreate'" indica que o evento OnCreate desse DataModule foi declarado mas não foi implementado. Vá no DataModule, coloque o cursor sobre a declaração desse evento e pressione CTRL+SHIT+C para implementar o método.
Teste novamente e veja no que dá.
Abraço.
Teste novamente e veja no que dá.
Abraço.
Responder
Gostei + 0
04/01/2013
Joao Vieiradossantos
o sistema apresenta esse erro, ja tentei dar ctrl+shift+c e nada, no evento do dmdados nao a nada declarado
porque então do erro, se alguem puder ajudar envio até os fontes se for o caso,
project commerce.exe raised exception class EreadError with message 'Invalid property value'.
Process stoped.Use Step or Run tu continue.
linha do executavel diz que esta; e marca ela de azul
Application.CreateForm(TDM_DADOS, DM_DADOS);
joaocarlosvieiradossantos@hotmail.com
tenho acesso via teamViewer ok
NAO CONSIGO RESOLVER SERA QUE VC CONSEGUE SE TE ENVIAR OS FONTES, SE FOR O CASO EU PAGO
porque então do erro, se alguem puder ajudar envio até os fontes se for o caso,
project commerce.exe raised exception class EreadError with message 'Invalid property value'.
Process stoped.Use Step or Run tu continue.
linha do executavel diz que esta; e marca ela de azul
Application.CreateForm(TDM_DADOS, DM_DADOS);
joaocarlosvieiradossantos@hotmail.com
tenho acesso via teamViewer ok
NAO CONSIGO RESOLVER SERA QUE VC CONSEGUE SE TE ENVIAR OS FONTES, SE FOR O CASO EU PAGO
Responder
Gostei + 0
04/01/2013
Joel Rodrigues
Coloque aqui o código do DMDados, se preferir use o PasteBin.com para postar o código.
Responder
Gostei + 0
04/01/2013
Joao Vieiradossantos
AMIGO VC NÃO TEM UM AMEIL OU SKYPE?
MANDA NO MEU EU NAO DIVULGO
JOAOCARLOSVIEIRADOSSANTOS@HOTMAIL.COM
MANDA NO MEU EU NAO DIVULGO
JOAOCARLOSVIEIRADOSSANTOS@HOTMAIL.COM
Responder
Gostei + 0
04/01/2013
Joao Vieiradossantos
CODIGO DO DMDADOS
unit Udm_DADOS;
interface
uses
SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBTable, IBQuery;
type
TDM_DADOS = class(TDataModule)
IBD_DADOS: TIBDatabase;
IBTrans: TIBTransaction;
IBT_cidades: TIBTable;
DS_CIDADES: TDataSource;
IBT_BAIRRO: TIBTable;
DS_BAIRRO: TDataSource;
IBT_BAIRROBAIR_CODIGO: TIntegerField;
IBT_BAIRROBAIR_NOME: TIBStringField;
IBT_LOGRADOURO: TIBTable;
IBT_LOGRADOUROLOG_CODIGO: TIntegerField;
IBT_LOGRADOUROLOG_NOME: TIBStringField;
DS_LOGRADOURO: TDataSource;
IBT_CARGOS: TIBTable;
DS_CARGOS: TDataSource;
IBT_CARGOSCARG_CODIGO: TIntegerField;
IBT_CARGOSCARG_NOME: TIBStringField;
IBT_CARGOSCARG_NIVEL: TIBStringField;
IBT_CLIENTES: TIBTable;
DS_CLIENTES: TDataSource;
IBT_CLIENTESCLI_CODIGO: TIntegerField;
IBT_CLIENTESCLI_NOME: TIBStringField;
IBT_CLIENTESCLI_FANTASIA: TIBStringField;
IBT_CLIENTESCLI_ENDERECO: TIntegerField;
IBT_CLIENTESCLI_NUMERO: TIBStringField;
IBT_CLIENTESCLI_BAIRRO: TIntegerField;
IBT_CLIENTESCLI_CIDADE: TIntegerField;
IBT_CLIENTESCLI_UF: TIBStringField;
IBT_CLIENTESCLI_NASC: TDateTimeField;
IBT_CLIENTESCLI_DATACAD: TDateTimeField;
IBT_CLIENTESCLI_ID: TIBStringField;
IBT_CLIENTESCLI_CNPJ: TIBStringField;
IBT_CLIENTESCLI_RG: TIBStringField;
IBT_CLIENTESCLI_FONE: TIBStringField;
IBT_CLIENTESCLI_FAX: TIBStringField;
IBT_CLIENTESCLI_CELULAR: TIBStringField;
IBT_CLIENTESCLI_OBS: TIBStringField;
IBT_CLIENTESCLI_TELEITOR: TIBStringField;
IBT_CLIENTESCLI_ZONA: TIBStringField;
IBT_CLIENTESCLI_SECAO: TIBStringField;
IBT_CLIENTESCLI_FOTO: TIBStringField;
IBT_CLIENTESCLI_EMAIL: TIBStringField;
IBT_CLIENTESCLI_CONTATO: TIBStringField;
IBT_FUNCIONARIOS: TIBTable;
IBT_FUNCIONARIOSFUNC_CODIGO: TIntegerField;
IBT_FUNCIONARIOSFUNC_NOME: TIBStringField;
IBT_FUNCIONARIOSFUNC_ENDERECO: TIntegerField;
IBT_FUNCIONARIOSFUNC_NUMERO: TIBStringField;
IBT_FUNCIONARIOSFUNC_BAIRRO: TIntegerField;
IBT_FUNCIONARIOSFUNC_CIDADE: TIntegerField;
IBT_FUNCIONARIOSFUNC_CPF: TIBStringField;
IBT_FUNCIONARIOSFUNC_RG: TIBStringField;
IBT_FUNCIONARIOSFUNC_NASC: TDateTimeField;
IBT_FUNCIONARIOSFUNC_ADM: TDateTimeField;
IBT_FUNCIONARIOSFUNC_FONE: TIBStringField;
IBT_FUNCIONARIOSFUNC_CELULAR: TIBStringField;
IBT_FUNCIONARIOSFUNC_EMAIL: TIBStringField;
IBT_FUNCIONARIOSFUNC_FOTO: TIBStringField;
IBT_FUNCIONARIOSFUNC_CARGO: TIntegerField;
IBT_FUNCIONARIOSFUNC_TITULO: TIBStringField;
IBT_FUNCIONARIOSFUNC_ZONA: TIBStringField;
IBT_FUNCIONARIOSFUNC_SECAO: TIBStringField;
IBT_FUNCIONARIOSFUN_MAE: TIBStringField;
IBT_FUNCIONARIOSFUNC_PAI: TIBStringField;
IBT_FUNCIONARIOSFUNC_ESTCIVIL: TIBStringField;
DS_FUNCIONARIOS: TDataSource;
IBT_FUNCIONARIOSFUNC_UF: TIBStringField;
DsSqlConsCidades: TDataSource;
SqlConsCidades: TIBQuery;
SqlConsCidadesCID_CODIGO: TIntegerField;
SqlConsCidadesCID_CIDADE: TIBStringField;
SqlConsCidadesCID_UF: TIBStringField;
SqlConsCidadesCID_CODRAIS: TIBStringField;
IBT_CLIENTESCLI_MAE: TIBStringField;
IBT_CLIENTESCLI_PAI: TIBStringField;
IBT_CLIENTESCLI_CONJUGE: TIBStringField;
IBT_cidadesCID_CODIGO: TIntegerField;
IBT_cidadesCID_CIDADE: TIBStringField;
IBT_cidadesCID_UF: TIBStringField;
IBT_cidadesCID_CODRAIS: TIBStringField;
IBT_cidadesCID_CEP: TIBStringField;
IBT_CLIENTESCLI_CEP: TIntegerField;
IBT_FUNCIONARIOSFUNC_CEP: TIntegerField;
IBT_CLIENTESCLI_CPF: TIBStringField;
IBT_CLIENTESCLI_IE: TIBStringField;
IBT_FORNEC: TIBTable;
DS_FORNEC: TDataSource;
IBT_FORNECFORNEC_CODIGO: TIntegerField;
IBT_FORNECFORNEC_NOME: TIBStringField;
IBT_FORNECFORNEC_END: TIntegerField;
IBT_FORNECFORNEC_NUMERO: TIBStringField;
IBT_FORNECFORNEC_BAIRRO: TIntegerField;
IBT_FORNECFORNEC_CIDADE: TIntegerField;
IBT_FORNECFORNEC_UF: TIBStringField;
IBT_FORNECFORNEC_CNPJ: TIBStringField;
IBT_FORNECFORNEC_IE: TIBStringField;
IBT_FORNECFORNEC_REPRESENTANTE: TIBStringField;
IBT_FORNECFORNEC_TELEFONE: TIBStringField;
IBT_FORNECFORNEC_FAX: TIBStringField;
IBT_FORNECFORNEC_CELULAR: TIBStringField;
IBT_FORNECFORNEC_CEP: TIBStringField;
IBT_FORNECFORNEC_EMAIL: TIBStringField;
IBT_FORNECFORNEC_CADASTRO: TDateTimeField;
IBT_FORNECFORNEC_FOTO: TIBStringField;
IBT_FORNECFORNEC_OBS: TIBStringField;
IBT_ICMS: TIBTable;
DS_ICMS: TDataSource;
IBT_ICMSICMS_CODIGO: TIntegerField;
IBT_ICMSICMS_VALOR: TIBBCDField;
IBT_IPI: TIBTable;
IBT_ISS: TIBTable;
DS_IPI: TDataSource;
DS_ISS: TDataSource;
IBT_IPIIPI_CODIGO: TIntegerField;
IBT_IPIIPI_VALOR: TIBBCDField;
IBT_ISSISS_CODIGO: TIntegerField;
IBT_ISSISS_VALOR: TIBBCDField;
IBT_ESTOQUE: TIBTable;
DS_ESTOQUE: TDataSource;
IBT_ESTOQUEESTCOD_ESTOQUE: TIntegerField;
IBT_ESTOQUEESTCOD_ENAN13EST: TIBStringField;
IBT_ESTOQUEESTCOD_PARALELO: TIBStringField;
IBT_ESTOQUEEST_PRODUTO: TIBStringField;
IBT_ESTOQUEEST_UNIDADE: TIBStringField;
IBT_ESTOQUEEST_TIPO: TIntegerField;
IBT_ESTOQUEEST_ULTFONEC: TIntegerField;
IBT_ESTOQUEEST_ULTCOMPRA: TDateTimeField;
IBT_ESTOQUEEST_PRCCUSTO: TIBBCDField;
IBT_ESTOQUEEST_PRCVENDA: TIBBCDField;
IBT_ESTOQUEEST_MARKUP: TIBBCDField;
IBT_ESTOQUEEST_OBS: TIBStringField;
IBT_ESTOQUEEST_DATACAD: TDateTimeField;
IBT_ESTOQUEEST_DATAULTCOMP: TDateTimeField;
IBT_ESTOQUEESTCOMISSAO: TIBStringField;
IBT_ESTOQUEEST_ARREDONDA: TIBBCDField;
IBT_ESTOQUEEST_SECAO: TIntegerField;
IBT_ESTOQUEEST_ATIVO: TIBStringField;
IBT_ESTOQUEEST_QTDATUAL: TIBBCDField;
IBT_ESTOQUEEST_PROD_SERV: TIBStringField;
IBT_ESTOQUEEST_BAIXA: TIBStringField;
IBT_ESTOQUEEST_CONTROLADO: TIBStringField;
IBT_ESTOQUEEST_GRADE: TIntegerField;
IBT_ESTOQUEEST_COR: TIBStringField;
IBT_ESTOQUEEST_MINIMO: TIBBCDField;
IBT_ESTOQUEEST_MAXIMO: TIBBCDField;
IBT_ESTOQUEEST_FRACAO: TIBBCDField;
IBT_ESTOQUEEST_COMISSAO: TIBBCDField;
IBT_ESTOQUEEST_TRCOMISSAO: TIBStringField;
IBT_ESTOQUEEST_TRDESCONTO: TIBStringField;
IBT_ESTOQUEEST_TRCONVENIO: TIBStringField;
IBT_ESTOQUEEST_ICMS: TIntegerField;
IBT_ESTOQUEEST_ISS: TIntegerField;
IBT_ESTOQUEEST_IPI: TIntegerField;
IBT_ESTOQUEEST_SUBISTITUICAO: TIBStringField;
IBT_ESTOQUEEST_CODIFISCAL: TIntegerField;
IBT_ESTOQUEEST_AVISTA: TIBStringField;
IBT_ESTOQUEEST_PRAZO: TIBStringField;
IBT_ESTOQUEEST_SITE: TIBStringField;
IBT_ESTOQUEEST_CONVENIO: TIBStringField;
IBT_ESTOQUEEST_MAX_V: TIntegerField;
IBT_ESTOQUEEST_MAX_P: TIntegerField;
IBT_ESTOQUEEST_FOTO: TIBStringField;
IBT_ESTOQUEEST_FIADO: TIBStringField;
IBT_ESTOQUEDES_AVISTA: TIBBCDField;
IBT_ESTOQUEDES_APRAZO: TIBBCDField;
IBT_ESTOQUEDES_SITE: TIBBCDField;
IBT_ESTOQUEDES_CONV: TIBBCDField;
IBT_ESTOQUEDES_MAX_V: TIBBCDField;
IBT_ESTOQUEDES_MAX_P: TIBBCDField;
IBT_SECAO: TIBTable;
IBT_TIPO: TIBTable;
DS_SECAO: TDataSource;
DS_TIPO: TDataSource;
IBT_ICMSCODFISCPTA: TIBStringField;
procedure IBT_cidadesAfterPost(DataSet: TDataSet);
procedure IBT_BAIRROAfterPost(DataSet: TDataSet);
procedure IBT_logradouroAfterPost(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
procedure confirma_dados;
{ Public declarations }
end;
var
DM_DADOS: TDM_DADOS;
implementation
uses U_Bairro, U_Cidades, U_Logradouro;
//uses U_Cidades;
// sistema comrceial Commerce desenvolvido por João Carlos Vieira dos Santos
procedure TDM_DADOS.confirma_dados;
begin
if IBTrans.intransaction then
IBTrans.CommitRetaining
else
IBTrans.RollbackRetaining;
end;
// sistema comrceial Commerce desenvolvido por João Carlos Vieira dos Santos
// uses U_Cidades;
{$R *.dfm}
procedure TDM_DADOS.IBT_cidadesAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.IBT_BAIRROAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.IBT_logradouroAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.DataModuleCreate(Sender: TObject);
begin
end;
end.
(esse é o codigo do DMDADOS)
unit Udm_DADOS;
interface
uses
SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBTable, IBQuery;
type
TDM_DADOS = class(TDataModule)
IBD_DADOS: TIBDatabase;
IBTrans: TIBTransaction;
IBT_cidades: TIBTable;
DS_CIDADES: TDataSource;
IBT_BAIRRO: TIBTable;
DS_BAIRRO: TDataSource;
IBT_BAIRROBAIR_CODIGO: TIntegerField;
IBT_BAIRROBAIR_NOME: TIBStringField;
IBT_LOGRADOURO: TIBTable;
IBT_LOGRADOUROLOG_CODIGO: TIntegerField;
IBT_LOGRADOUROLOG_NOME: TIBStringField;
DS_LOGRADOURO: TDataSource;
IBT_CARGOS: TIBTable;
DS_CARGOS: TDataSource;
IBT_CARGOSCARG_CODIGO: TIntegerField;
IBT_CARGOSCARG_NOME: TIBStringField;
IBT_CARGOSCARG_NIVEL: TIBStringField;
IBT_CLIENTES: TIBTable;
DS_CLIENTES: TDataSource;
IBT_CLIENTESCLI_CODIGO: TIntegerField;
IBT_CLIENTESCLI_NOME: TIBStringField;
IBT_CLIENTESCLI_FANTASIA: TIBStringField;
IBT_CLIENTESCLI_ENDERECO: TIntegerField;
IBT_CLIENTESCLI_NUMERO: TIBStringField;
IBT_CLIENTESCLI_BAIRRO: TIntegerField;
IBT_CLIENTESCLI_CIDADE: TIntegerField;
IBT_CLIENTESCLI_UF: TIBStringField;
IBT_CLIENTESCLI_NASC: TDateTimeField;
IBT_CLIENTESCLI_DATACAD: TDateTimeField;
IBT_CLIENTESCLI_ID: TIBStringField;
IBT_CLIENTESCLI_CNPJ: TIBStringField;
IBT_CLIENTESCLI_RG: TIBStringField;
IBT_CLIENTESCLI_FONE: TIBStringField;
IBT_CLIENTESCLI_FAX: TIBStringField;
IBT_CLIENTESCLI_CELULAR: TIBStringField;
IBT_CLIENTESCLI_OBS: TIBStringField;
IBT_CLIENTESCLI_TELEITOR: TIBStringField;
IBT_CLIENTESCLI_ZONA: TIBStringField;
IBT_CLIENTESCLI_SECAO: TIBStringField;
IBT_CLIENTESCLI_FOTO: TIBStringField;
IBT_CLIENTESCLI_EMAIL: TIBStringField;
IBT_CLIENTESCLI_CONTATO: TIBStringField;
IBT_FUNCIONARIOS: TIBTable;
IBT_FUNCIONARIOSFUNC_CODIGO: TIntegerField;
IBT_FUNCIONARIOSFUNC_NOME: TIBStringField;
IBT_FUNCIONARIOSFUNC_ENDERECO: TIntegerField;
IBT_FUNCIONARIOSFUNC_NUMERO: TIBStringField;
IBT_FUNCIONARIOSFUNC_BAIRRO: TIntegerField;
IBT_FUNCIONARIOSFUNC_CIDADE: TIntegerField;
IBT_FUNCIONARIOSFUNC_CPF: TIBStringField;
IBT_FUNCIONARIOSFUNC_RG: TIBStringField;
IBT_FUNCIONARIOSFUNC_NASC: TDateTimeField;
IBT_FUNCIONARIOSFUNC_ADM: TDateTimeField;
IBT_FUNCIONARIOSFUNC_FONE: TIBStringField;
IBT_FUNCIONARIOSFUNC_CELULAR: TIBStringField;
IBT_FUNCIONARIOSFUNC_EMAIL: TIBStringField;
IBT_FUNCIONARIOSFUNC_FOTO: TIBStringField;
IBT_FUNCIONARIOSFUNC_CARGO: TIntegerField;
IBT_FUNCIONARIOSFUNC_TITULO: TIBStringField;
IBT_FUNCIONARIOSFUNC_ZONA: TIBStringField;
IBT_FUNCIONARIOSFUNC_SECAO: TIBStringField;
IBT_FUNCIONARIOSFUN_MAE: TIBStringField;
IBT_FUNCIONARIOSFUNC_PAI: TIBStringField;
IBT_FUNCIONARIOSFUNC_ESTCIVIL: TIBStringField;
DS_FUNCIONARIOS: TDataSource;
IBT_FUNCIONARIOSFUNC_UF: TIBStringField;
DsSqlConsCidades: TDataSource;
SqlConsCidades: TIBQuery;
SqlConsCidadesCID_CODIGO: TIntegerField;
SqlConsCidadesCID_CIDADE: TIBStringField;
SqlConsCidadesCID_UF: TIBStringField;
SqlConsCidadesCID_CODRAIS: TIBStringField;
IBT_CLIENTESCLI_MAE: TIBStringField;
IBT_CLIENTESCLI_PAI: TIBStringField;
IBT_CLIENTESCLI_CONJUGE: TIBStringField;
IBT_cidadesCID_CODIGO: TIntegerField;
IBT_cidadesCID_CIDADE: TIBStringField;
IBT_cidadesCID_UF: TIBStringField;
IBT_cidadesCID_CODRAIS: TIBStringField;
IBT_cidadesCID_CEP: TIBStringField;
IBT_CLIENTESCLI_CEP: TIntegerField;
IBT_FUNCIONARIOSFUNC_CEP: TIntegerField;
IBT_CLIENTESCLI_CPF: TIBStringField;
IBT_CLIENTESCLI_IE: TIBStringField;
IBT_FORNEC: TIBTable;
DS_FORNEC: TDataSource;
IBT_FORNECFORNEC_CODIGO: TIntegerField;
IBT_FORNECFORNEC_NOME: TIBStringField;
IBT_FORNECFORNEC_END: TIntegerField;
IBT_FORNECFORNEC_NUMERO: TIBStringField;
IBT_FORNECFORNEC_BAIRRO: TIntegerField;
IBT_FORNECFORNEC_CIDADE: TIntegerField;
IBT_FORNECFORNEC_UF: TIBStringField;
IBT_FORNECFORNEC_CNPJ: TIBStringField;
IBT_FORNECFORNEC_IE: TIBStringField;
IBT_FORNECFORNEC_REPRESENTANTE: TIBStringField;
IBT_FORNECFORNEC_TELEFONE: TIBStringField;
IBT_FORNECFORNEC_FAX: TIBStringField;
IBT_FORNECFORNEC_CELULAR: TIBStringField;
IBT_FORNECFORNEC_CEP: TIBStringField;
IBT_FORNECFORNEC_EMAIL: TIBStringField;
IBT_FORNECFORNEC_CADASTRO: TDateTimeField;
IBT_FORNECFORNEC_FOTO: TIBStringField;
IBT_FORNECFORNEC_OBS: TIBStringField;
IBT_ICMS: TIBTable;
DS_ICMS: TDataSource;
IBT_ICMSICMS_CODIGO: TIntegerField;
IBT_ICMSICMS_VALOR: TIBBCDField;
IBT_IPI: TIBTable;
IBT_ISS: TIBTable;
DS_IPI: TDataSource;
DS_ISS: TDataSource;
IBT_IPIIPI_CODIGO: TIntegerField;
IBT_IPIIPI_VALOR: TIBBCDField;
IBT_ISSISS_CODIGO: TIntegerField;
IBT_ISSISS_VALOR: TIBBCDField;
IBT_ESTOQUE: TIBTable;
DS_ESTOQUE: TDataSource;
IBT_ESTOQUEESTCOD_ESTOQUE: TIntegerField;
IBT_ESTOQUEESTCOD_ENAN13EST: TIBStringField;
IBT_ESTOQUEESTCOD_PARALELO: TIBStringField;
IBT_ESTOQUEEST_PRODUTO: TIBStringField;
IBT_ESTOQUEEST_UNIDADE: TIBStringField;
IBT_ESTOQUEEST_TIPO: TIntegerField;
IBT_ESTOQUEEST_ULTFONEC: TIntegerField;
IBT_ESTOQUEEST_ULTCOMPRA: TDateTimeField;
IBT_ESTOQUEEST_PRCCUSTO: TIBBCDField;
IBT_ESTOQUEEST_PRCVENDA: TIBBCDField;
IBT_ESTOQUEEST_MARKUP: TIBBCDField;
IBT_ESTOQUEEST_OBS: TIBStringField;
IBT_ESTOQUEEST_DATACAD: TDateTimeField;
IBT_ESTOQUEEST_DATAULTCOMP: TDateTimeField;
IBT_ESTOQUEESTCOMISSAO: TIBStringField;
IBT_ESTOQUEEST_ARREDONDA: TIBBCDField;
IBT_ESTOQUEEST_SECAO: TIntegerField;
IBT_ESTOQUEEST_ATIVO: TIBStringField;
IBT_ESTOQUEEST_QTDATUAL: TIBBCDField;
IBT_ESTOQUEEST_PROD_SERV: TIBStringField;
IBT_ESTOQUEEST_BAIXA: TIBStringField;
IBT_ESTOQUEEST_CONTROLADO: TIBStringField;
IBT_ESTOQUEEST_GRADE: TIntegerField;
IBT_ESTOQUEEST_COR: TIBStringField;
IBT_ESTOQUEEST_MINIMO: TIBBCDField;
IBT_ESTOQUEEST_MAXIMO: TIBBCDField;
IBT_ESTOQUEEST_FRACAO: TIBBCDField;
IBT_ESTOQUEEST_COMISSAO: TIBBCDField;
IBT_ESTOQUEEST_TRCOMISSAO: TIBStringField;
IBT_ESTOQUEEST_TRDESCONTO: TIBStringField;
IBT_ESTOQUEEST_TRCONVENIO: TIBStringField;
IBT_ESTOQUEEST_ICMS: TIntegerField;
IBT_ESTOQUEEST_ISS: TIntegerField;
IBT_ESTOQUEEST_IPI: TIntegerField;
IBT_ESTOQUEEST_SUBISTITUICAO: TIBStringField;
IBT_ESTOQUEEST_CODIFISCAL: TIntegerField;
IBT_ESTOQUEEST_AVISTA: TIBStringField;
IBT_ESTOQUEEST_PRAZO: TIBStringField;
IBT_ESTOQUEEST_SITE: TIBStringField;
IBT_ESTOQUEEST_CONVENIO: TIBStringField;
IBT_ESTOQUEEST_MAX_V: TIntegerField;
IBT_ESTOQUEEST_MAX_P: TIntegerField;
IBT_ESTOQUEEST_FOTO: TIBStringField;
IBT_ESTOQUEEST_FIADO: TIBStringField;
IBT_ESTOQUEDES_AVISTA: TIBBCDField;
IBT_ESTOQUEDES_APRAZO: TIBBCDField;
IBT_ESTOQUEDES_SITE: TIBBCDField;
IBT_ESTOQUEDES_CONV: TIBBCDField;
IBT_ESTOQUEDES_MAX_V: TIBBCDField;
IBT_ESTOQUEDES_MAX_P: TIBBCDField;
IBT_SECAO: TIBTable;
IBT_TIPO: TIBTable;
DS_SECAO: TDataSource;
DS_TIPO: TDataSource;
IBT_ICMSCODFISCPTA: TIBStringField;
procedure IBT_cidadesAfterPost(DataSet: TDataSet);
procedure IBT_BAIRROAfterPost(DataSet: TDataSet);
procedure IBT_logradouroAfterPost(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
procedure confirma_dados;
{ Public declarations }
end;
var
DM_DADOS: TDM_DADOS;
implementation
uses U_Bairro, U_Cidades, U_Logradouro;
//uses U_Cidades;
// sistema comrceial Commerce desenvolvido por João Carlos Vieira dos Santos
procedure TDM_DADOS.confirma_dados;
begin
if IBTrans.intransaction then
IBTrans.CommitRetaining
else
IBTrans.RollbackRetaining;
end;
// sistema comrceial Commerce desenvolvido por João Carlos Vieira dos Santos
// uses U_Cidades;
{$R *.dfm}
procedure TDM_DADOS.IBT_cidadesAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.IBT_BAIRROAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.IBT_logradouroAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.DataModuleCreate(Sender: TObject);
begin
end;
end.
(esse é o codigo do DMDADOS)
Responder
Gostei + 0
04/01/2013
Joao Vieiradossantos
CODIGO DO DMDADOS
unit Udm_DADOS;
interface
uses
SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBTable, IBQuery;
type
TDM_DADOS = class(TDataModule)
IBD_DADOS: TIBDatabase;
IBTrans: TIBTransaction;
IBT_cidades: TIBTable;
DS_CIDADES: TDataSource;
IBT_BAIRRO: TIBTable;
DS_BAIRRO: TDataSource;
IBT_BAIRROBAIR_CODIGO: TIntegerField;
IBT_BAIRROBAIR_NOME: TIBStringField;
IBT_LOGRADOURO: TIBTable;
IBT_LOGRADOUROLOG_CODIGO: TIntegerField;
IBT_LOGRADOUROLOG_NOME: TIBStringField;
DS_LOGRADOURO: TDataSource;
IBT_CARGOS: TIBTable;
DS_CARGOS: TDataSource;
IBT_CARGOSCARG_CODIGO: TIntegerField;
IBT_CARGOSCARG_NOME: TIBStringField;
IBT_CARGOSCARG_NIVEL: TIBStringField;
IBT_CLIENTES: TIBTable;
DS_CLIENTES: TDataSource;
IBT_CLIENTESCLI_CODIGO: TIntegerField;
IBT_CLIENTESCLI_NOME: TIBStringField;
IBT_CLIENTESCLI_FANTASIA: TIBStringField;
IBT_CLIENTESCLI_ENDERECO: TIntegerField;
IBT_CLIENTESCLI_NUMERO: TIBStringField;
IBT_CLIENTESCLI_BAIRRO: TIntegerField;
IBT_CLIENTESCLI_CIDADE: TIntegerField;
IBT_CLIENTESCLI_UF: TIBStringField;
IBT_CLIENTESCLI_NASC: TDateTimeField;
IBT_CLIENTESCLI_DATACAD: TDateTimeField;
IBT_CLIENTESCLI_ID: TIBStringField;
IBT_CLIENTESCLI_CNPJ: TIBStringField;
IBT_CLIENTESCLI_RG: TIBStringField;
IBT_CLIENTESCLI_FONE: TIBStringField;
IBT_CLIENTESCLI_FAX: TIBStringField;
IBT_CLIENTESCLI_CELULAR: TIBStringField;
IBT_CLIENTESCLI_OBS: TIBStringField;
IBT_CLIENTESCLI_TELEITOR: TIBStringField;
IBT_CLIENTESCLI_ZONA: TIBStringField;
IBT_CLIENTESCLI_SECAO: TIBStringField;
IBT_CLIENTESCLI_FOTO: TIBStringField;
IBT_CLIENTESCLI_EMAIL: TIBStringField;
IBT_CLIENTESCLI_CONTATO: TIBStringField;
IBT_FUNCIONARIOS: TIBTable;
IBT_FUNCIONARIOSFUNC_CODIGO: TIntegerField;
IBT_FUNCIONARIOSFUNC_NOME: TIBStringField;
IBT_FUNCIONARIOSFUNC_ENDERECO: TIntegerField;
IBT_FUNCIONARIOSFUNC_NUMERO: TIBStringField;
IBT_FUNCIONARIOSFUNC_BAIRRO: TIntegerField;
IBT_FUNCIONARIOSFUNC_CIDADE: TIntegerField;
IBT_FUNCIONARIOSFUNC_CPF: TIBStringField;
IBT_FUNCIONARIOSFUNC_RG: TIBStringField;
IBT_FUNCIONARIOSFUNC_NASC: TDateTimeField;
IBT_FUNCIONARIOSFUNC_ADM: TDateTimeField;
IBT_FUNCIONARIOSFUNC_FONE: TIBStringField;
IBT_FUNCIONARIOSFUNC_CELULAR: TIBStringField;
IBT_FUNCIONARIOSFUNC_EMAIL: TIBStringField;
IBT_FUNCIONARIOSFUNC_FOTO: TIBStringField;
IBT_FUNCIONARIOSFUNC_CARGO: TIntegerField;
IBT_FUNCIONARIOSFUNC_TITULO: TIBStringField;
IBT_FUNCIONARIOSFUNC_ZONA: TIBStringField;
IBT_FUNCIONARIOSFUNC_SECAO: TIBStringField;
IBT_FUNCIONARIOSFUN_MAE: TIBStringField;
IBT_FUNCIONARIOSFUNC_PAI: TIBStringField;
IBT_FUNCIONARIOSFUNC_ESTCIVIL: TIBStringField;
DS_FUNCIONARIOS: TDataSource;
IBT_FUNCIONARIOSFUNC_UF: TIBStringField;
DsSqlConsCidades: TDataSource;
SqlConsCidades: TIBQuery;
SqlConsCidadesCID_CODIGO: TIntegerField;
SqlConsCidadesCID_CIDADE: TIBStringField;
SqlConsCidadesCID_UF: TIBStringField;
SqlConsCidadesCID_CODRAIS: TIBStringField;
IBT_CLIENTESCLI_MAE: TIBStringField;
IBT_CLIENTESCLI_PAI: TIBStringField;
IBT_CLIENTESCLI_CONJUGE: TIBStringField;
IBT_cidadesCID_CODIGO: TIntegerField;
IBT_cidadesCID_CIDADE: TIBStringField;
IBT_cidadesCID_UF: TIBStringField;
IBT_cidadesCID_CODRAIS: TIBStringField;
IBT_cidadesCID_CEP: TIBStringField;
IBT_CLIENTESCLI_CEP: TIntegerField;
IBT_FUNCIONARIOSFUNC_CEP: TIntegerField;
IBT_CLIENTESCLI_CPF: TIBStringField;
IBT_CLIENTESCLI_IE: TIBStringField;
IBT_FORNEC: TIBTable;
DS_FORNEC: TDataSource;
IBT_FORNECFORNEC_CODIGO: TIntegerField;
IBT_FORNECFORNEC_NOME: TIBStringField;
IBT_FORNECFORNEC_END: TIntegerField;
IBT_FORNECFORNEC_NUMERO: TIBStringField;
IBT_FORNECFORNEC_BAIRRO: TIntegerField;
IBT_FORNECFORNEC_CIDADE: TIntegerField;
IBT_FORNECFORNEC_UF: TIBStringField;
IBT_FORNECFORNEC_CNPJ: TIBStringField;
IBT_FORNECFORNEC_IE: TIBStringField;
IBT_FORNECFORNEC_REPRESENTANTE: TIBStringField;
IBT_FORNECFORNEC_TELEFONE: TIBStringField;
IBT_FORNECFORNEC_FAX: TIBStringField;
IBT_FORNECFORNEC_CELULAR: TIBStringField;
IBT_FORNECFORNEC_CEP: TIBStringField;
IBT_FORNECFORNEC_EMAIL: TIBStringField;
IBT_FORNECFORNEC_CADASTRO: TDateTimeField;
IBT_FORNECFORNEC_FOTO: TIBStringField;
IBT_FORNECFORNEC_OBS: TIBStringField;
IBT_ICMS: TIBTable;
DS_ICMS: TDataSource;
IBT_ICMSICMS_CODIGO: TIntegerField;
IBT_ICMSICMS_VALOR: TIBBCDField;
IBT_IPI: TIBTable;
IBT_ISS: TIBTable;
DS_IPI: TDataSource;
DS_ISS: TDataSource;
IBT_IPIIPI_CODIGO: TIntegerField;
IBT_IPIIPI_VALOR: TIBBCDField;
IBT_ISSISS_CODIGO: TIntegerField;
IBT_ISSISS_VALOR: TIBBCDField;
IBT_ESTOQUE: TIBTable;
DS_ESTOQUE: TDataSource;
IBT_ESTOQUEESTCOD_ESTOQUE: TIntegerField;
IBT_ESTOQUEESTCOD_ENAN13EST: TIBStringField;
IBT_ESTOQUEESTCOD_PARALELO: TIBStringField;
IBT_ESTOQUEEST_PRODUTO: TIBStringField;
IBT_ESTOQUEEST_UNIDADE: TIBStringField;
IBT_ESTOQUEEST_TIPO: TIntegerField;
IBT_ESTOQUEEST_ULTFONEC: TIntegerField;
IBT_ESTOQUEEST_ULTCOMPRA: TDateTimeField;
IBT_ESTOQUEEST_PRCCUSTO: TIBBCDField;
IBT_ESTOQUEEST_PRCVENDA: TIBBCDField;
IBT_ESTOQUEEST_MARKUP: TIBBCDField;
IBT_ESTOQUEEST_OBS: TIBStringField;
IBT_ESTOQUEEST_DATACAD: TDateTimeField;
IBT_ESTOQUEEST_DATAULTCOMP: TDateTimeField;
IBT_ESTOQUEESTCOMISSAO: TIBStringField;
IBT_ESTOQUEEST_ARREDONDA: TIBBCDField;
IBT_ESTOQUEEST_SECAO: TIntegerField;
IBT_ESTOQUEEST_ATIVO: TIBStringField;
IBT_ESTOQUEEST_QTDATUAL: TIBBCDField;
IBT_ESTOQUEEST_PROD_SERV: TIBStringField;
IBT_ESTOQUEEST_BAIXA: TIBStringField;
IBT_ESTOQUEEST_CONTROLADO: TIBStringField;
IBT_ESTOQUEEST_GRADE: TIntegerField;
IBT_ESTOQUEEST_COR: TIBStringField;
IBT_ESTOQUEEST_MINIMO: TIBBCDField;
IBT_ESTOQUEEST_MAXIMO: TIBBCDField;
IBT_ESTOQUEEST_FRACAO: TIBBCDField;
IBT_ESTOQUEEST_COMISSAO: TIBBCDField;
IBT_ESTOQUEEST_TRCOMISSAO: TIBStringField;
IBT_ESTOQUEEST_TRDESCONTO: TIBStringField;
IBT_ESTOQUEEST_TRCONVENIO: TIBStringField;
IBT_ESTOQUEEST_ICMS: TIntegerField;
IBT_ESTOQUEEST_ISS: TIntegerField;
IBT_ESTOQUEEST_IPI: TIntegerField;
IBT_ESTOQUEEST_SUBISTITUICAO: TIBStringField;
IBT_ESTOQUEEST_CODIFISCAL: TIntegerField;
IBT_ESTOQUEEST_AVISTA: TIBStringField;
IBT_ESTOQUEEST_PRAZO: TIBStringField;
IBT_ESTOQUEEST_SITE: TIBStringField;
IBT_ESTOQUEEST_CONVENIO: TIBStringField;
IBT_ESTOQUEEST_MAX_V: TIntegerField;
IBT_ESTOQUEEST_MAX_P: TIntegerField;
IBT_ESTOQUEEST_FOTO: TIBStringField;
IBT_ESTOQUEEST_FIADO: TIBStringField;
IBT_ESTOQUEDES_AVISTA: TIBBCDField;
IBT_ESTOQUEDES_APRAZO: TIBBCDField;
IBT_ESTOQUEDES_SITE: TIBBCDField;
IBT_ESTOQUEDES_CONV: TIBBCDField;
IBT_ESTOQUEDES_MAX_V: TIBBCDField;
IBT_ESTOQUEDES_MAX_P: TIBBCDField;
IBT_SECAO: TIBTable;
IBT_TIPO: TIBTable;
DS_SECAO: TDataSource;
DS_TIPO: TDataSource;
IBT_ICMSCODFISCPTA: TIBStringField;
procedure IBT_cidadesAfterPost(DataSet: TDataSet);
procedure IBT_BAIRROAfterPost(DataSet: TDataSet);
procedure IBT_logradouroAfterPost(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
procedure confirma_dados;
{ Public declarations }
end;
var
DM_DADOS: TDM_DADOS;
implementation
uses U_Bairro, U_Cidades, U_Logradouro;
//uses U_Cidades;
// sistema comrceial Commerce desenvolvido por João Carlos Vieira dos Santos
procedure TDM_DADOS.confirma_dados;
begin
if IBTrans.intransaction then
IBTrans.CommitRetaining
else
IBTrans.RollbackRetaining;
end;
// sistema comrceial Commerce desenvolvido por João Carlos Vieira dos Santos
// uses U_Cidades;
{$R *.dfm}
procedure TDM_DADOS.IBT_cidadesAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.IBT_BAIRROAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.IBT_logradouroAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.DataModuleCreate(Sender: TObject);
begin
end;
end.
(esse é o codigo do DMDADOS)
unit Udm_DADOS;
interface
uses
SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBTable, IBQuery;
type
TDM_DADOS = class(TDataModule)
IBD_DADOS: TIBDatabase;
IBTrans: TIBTransaction;
IBT_cidades: TIBTable;
DS_CIDADES: TDataSource;
IBT_BAIRRO: TIBTable;
DS_BAIRRO: TDataSource;
IBT_BAIRROBAIR_CODIGO: TIntegerField;
IBT_BAIRROBAIR_NOME: TIBStringField;
IBT_LOGRADOURO: TIBTable;
IBT_LOGRADOUROLOG_CODIGO: TIntegerField;
IBT_LOGRADOUROLOG_NOME: TIBStringField;
DS_LOGRADOURO: TDataSource;
IBT_CARGOS: TIBTable;
DS_CARGOS: TDataSource;
IBT_CARGOSCARG_CODIGO: TIntegerField;
IBT_CARGOSCARG_NOME: TIBStringField;
IBT_CARGOSCARG_NIVEL: TIBStringField;
IBT_CLIENTES: TIBTable;
DS_CLIENTES: TDataSource;
IBT_CLIENTESCLI_CODIGO: TIntegerField;
IBT_CLIENTESCLI_NOME: TIBStringField;
IBT_CLIENTESCLI_FANTASIA: TIBStringField;
IBT_CLIENTESCLI_ENDERECO: TIntegerField;
IBT_CLIENTESCLI_NUMERO: TIBStringField;
IBT_CLIENTESCLI_BAIRRO: TIntegerField;
IBT_CLIENTESCLI_CIDADE: TIntegerField;
IBT_CLIENTESCLI_UF: TIBStringField;
IBT_CLIENTESCLI_NASC: TDateTimeField;
IBT_CLIENTESCLI_DATACAD: TDateTimeField;
IBT_CLIENTESCLI_ID: TIBStringField;
IBT_CLIENTESCLI_CNPJ: TIBStringField;
IBT_CLIENTESCLI_RG: TIBStringField;
IBT_CLIENTESCLI_FONE: TIBStringField;
IBT_CLIENTESCLI_FAX: TIBStringField;
IBT_CLIENTESCLI_CELULAR: TIBStringField;
IBT_CLIENTESCLI_OBS: TIBStringField;
IBT_CLIENTESCLI_TELEITOR: TIBStringField;
IBT_CLIENTESCLI_ZONA: TIBStringField;
IBT_CLIENTESCLI_SECAO: TIBStringField;
IBT_CLIENTESCLI_FOTO: TIBStringField;
IBT_CLIENTESCLI_EMAIL: TIBStringField;
IBT_CLIENTESCLI_CONTATO: TIBStringField;
IBT_FUNCIONARIOS: TIBTable;
IBT_FUNCIONARIOSFUNC_CODIGO: TIntegerField;
IBT_FUNCIONARIOSFUNC_NOME: TIBStringField;
IBT_FUNCIONARIOSFUNC_ENDERECO: TIntegerField;
IBT_FUNCIONARIOSFUNC_NUMERO: TIBStringField;
IBT_FUNCIONARIOSFUNC_BAIRRO: TIntegerField;
IBT_FUNCIONARIOSFUNC_CIDADE: TIntegerField;
IBT_FUNCIONARIOSFUNC_CPF: TIBStringField;
IBT_FUNCIONARIOSFUNC_RG: TIBStringField;
IBT_FUNCIONARIOSFUNC_NASC: TDateTimeField;
IBT_FUNCIONARIOSFUNC_ADM: TDateTimeField;
IBT_FUNCIONARIOSFUNC_FONE: TIBStringField;
IBT_FUNCIONARIOSFUNC_CELULAR: TIBStringField;
IBT_FUNCIONARIOSFUNC_EMAIL: TIBStringField;
IBT_FUNCIONARIOSFUNC_FOTO: TIBStringField;
IBT_FUNCIONARIOSFUNC_CARGO: TIntegerField;
IBT_FUNCIONARIOSFUNC_TITULO: TIBStringField;
IBT_FUNCIONARIOSFUNC_ZONA: TIBStringField;
IBT_FUNCIONARIOSFUNC_SECAO: TIBStringField;
IBT_FUNCIONARIOSFUN_MAE: TIBStringField;
IBT_FUNCIONARIOSFUNC_PAI: TIBStringField;
IBT_FUNCIONARIOSFUNC_ESTCIVIL: TIBStringField;
DS_FUNCIONARIOS: TDataSource;
IBT_FUNCIONARIOSFUNC_UF: TIBStringField;
DsSqlConsCidades: TDataSource;
SqlConsCidades: TIBQuery;
SqlConsCidadesCID_CODIGO: TIntegerField;
SqlConsCidadesCID_CIDADE: TIBStringField;
SqlConsCidadesCID_UF: TIBStringField;
SqlConsCidadesCID_CODRAIS: TIBStringField;
IBT_CLIENTESCLI_MAE: TIBStringField;
IBT_CLIENTESCLI_PAI: TIBStringField;
IBT_CLIENTESCLI_CONJUGE: TIBStringField;
IBT_cidadesCID_CODIGO: TIntegerField;
IBT_cidadesCID_CIDADE: TIBStringField;
IBT_cidadesCID_UF: TIBStringField;
IBT_cidadesCID_CODRAIS: TIBStringField;
IBT_cidadesCID_CEP: TIBStringField;
IBT_CLIENTESCLI_CEP: TIntegerField;
IBT_FUNCIONARIOSFUNC_CEP: TIntegerField;
IBT_CLIENTESCLI_CPF: TIBStringField;
IBT_CLIENTESCLI_IE: TIBStringField;
IBT_FORNEC: TIBTable;
DS_FORNEC: TDataSource;
IBT_FORNECFORNEC_CODIGO: TIntegerField;
IBT_FORNECFORNEC_NOME: TIBStringField;
IBT_FORNECFORNEC_END: TIntegerField;
IBT_FORNECFORNEC_NUMERO: TIBStringField;
IBT_FORNECFORNEC_BAIRRO: TIntegerField;
IBT_FORNECFORNEC_CIDADE: TIntegerField;
IBT_FORNECFORNEC_UF: TIBStringField;
IBT_FORNECFORNEC_CNPJ: TIBStringField;
IBT_FORNECFORNEC_IE: TIBStringField;
IBT_FORNECFORNEC_REPRESENTANTE: TIBStringField;
IBT_FORNECFORNEC_TELEFONE: TIBStringField;
IBT_FORNECFORNEC_FAX: TIBStringField;
IBT_FORNECFORNEC_CELULAR: TIBStringField;
IBT_FORNECFORNEC_CEP: TIBStringField;
IBT_FORNECFORNEC_EMAIL: TIBStringField;
IBT_FORNECFORNEC_CADASTRO: TDateTimeField;
IBT_FORNECFORNEC_FOTO: TIBStringField;
IBT_FORNECFORNEC_OBS: TIBStringField;
IBT_ICMS: TIBTable;
DS_ICMS: TDataSource;
IBT_ICMSICMS_CODIGO: TIntegerField;
IBT_ICMSICMS_VALOR: TIBBCDField;
IBT_IPI: TIBTable;
IBT_ISS: TIBTable;
DS_IPI: TDataSource;
DS_ISS: TDataSource;
IBT_IPIIPI_CODIGO: TIntegerField;
IBT_IPIIPI_VALOR: TIBBCDField;
IBT_ISSISS_CODIGO: TIntegerField;
IBT_ISSISS_VALOR: TIBBCDField;
IBT_ESTOQUE: TIBTable;
DS_ESTOQUE: TDataSource;
IBT_ESTOQUEESTCOD_ESTOQUE: TIntegerField;
IBT_ESTOQUEESTCOD_ENAN13EST: TIBStringField;
IBT_ESTOQUEESTCOD_PARALELO: TIBStringField;
IBT_ESTOQUEEST_PRODUTO: TIBStringField;
IBT_ESTOQUEEST_UNIDADE: TIBStringField;
IBT_ESTOQUEEST_TIPO: TIntegerField;
IBT_ESTOQUEEST_ULTFONEC: TIntegerField;
IBT_ESTOQUEEST_ULTCOMPRA: TDateTimeField;
IBT_ESTOQUEEST_PRCCUSTO: TIBBCDField;
IBT_ESTOQUEEST_PRCVENDA: TIBBCDField;
IBT_ESTOQUEEST_MARKUP: TIBBCDField;
IBT_ESTOQUEEST_OBS: TIBStringField;
IBT_ESTOQUEEST_DATACAD: TDateTimeField;
IBT_ESTOQUEEST_DATAULTCOMP: TDateTimeField;
IBT_ESTOQUEESTCOMISSAO: TIBStringField;
IBT_ESTOQUEEST_ARREDONDA: TIBBCDField;
IBT_ESTOQUEEST_SECAO: TIntegerField;
IBT_ESTOQUEEST_ATIVO: TIBStringField;
IBT_ESTOQUEEST_QTDATUAL: TIBBCDField;
IBT_ESTOQUEEST_PROD_SERV: TIBStringField;
IBT_ESTOQUEEST_BAIXA: TIBStringField;
IBT_ESTOQUEEST_CONTROLADO: TIBStringField;
IBT_ESTOQUEEST_GRADE: TIntegerField;
IBT_ESTOQUEEST_COR: TIBStringField;
IBT_ESTOQUEEST_MINIMO: TIBBCDField;
IBT_ESTOQUEEST_MAXIMO: TIBBCDField;
IBT_ESTOQUEEST_FRACAO: TIBBCDField;
IBT_ESTOQUEEST_COMISSAO: TIBBCDField;
IBT_ESTOQUEEST_TRCOMISSAO: TIBStringField;
IBT_ESTOQUEEST_TRDESCONTO: TIBStringField;
IBT_ESTOQUEEST_TRCONVENIO: TIBStringField;
IBT_ESTOQUEEST_ICMS: TIntegerField;
IBT_ESTOQUEEST_ISS: TIntegerField;
IBT_ESTOQUEEST_IPI: TIntegerField;
IBT_ESTOQUEEST_SUBISTITUICAO: TIBStringField;
IBT_ESTOQUEEST_CODIFISCAL: TIntegerField;
IBT_ESTOQUEEST_AVISTA: TIBStringField;
IBT_ESTOQUEEST_PRAZO: TIBStringField;
IBT_ESTOQUEEST_SITE: TIBStringField;
IBT_ESTOQUEEST_CONVENIO: TIBStringField;
IBT_ESTOQUEEST_MAX_V: TIntegerField;
IBT_ESTOQUEEST_MAX_P: TIntegerField;
IBT_ESTOQUEEST_FOTO: TIBStringField;
IBT_ESTOQUEEST_FIADO: TIBStringField;
IBT_ESTOQUEDES_AVISTA: TIBBCDField;
IBT_ESTOQUEDES_APRAZO: TIBBCDField;
IBT_ESTOQUEDES_SITE: TIBBCDField;
IBT_ESTOQUEDES_CONV: TIBBCDField;
IBT_ESTOQUEDES_MAX_V: TIBBCDField;
IBT_ESTOQUEDES_MAX_P: TIBBCDField;
IBT_SECAO: TIBTable;
IBT_TIPO: TIBTable;
DS_SECAO: TDataSource;
DS_TIPO: TDataSource;
IBT_ICMSCODFISCPTA: TIBStringField;
procedure IBT_cidadesAfterPost(DataSet: TDataSet);
procedure IBT_BAIRROAfterPost(DataSet: TDataSet);
procedure IBT_logradouroAfterPost(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
procedure confirma_dados;
{ Public declarations }
end;
var
DM_DADOS: TDM_DADOS;
implementation
uses U_Bairro, U_Cidades, U_Logradouro;
//uses U_Cidades;
// sistema comrceial Commerce desenvolvido por João Carlos Vieira dos Santos
procedure TDM_DADOS.confirma_dados;
begin
if IBTrans.intransaction then
IBTrans.CommitRetaining
else
IBTrans.RollbackRetaining;
end;
// sistema comrceial Commerce desenvolvido por João Carlos Vieira dos Santos
// uses U_Cidades;
{$R *.dfm}
procedure TDM_DADOS.IBT_cidadesAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.IBT_BAIRROAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.IBT_logradouroAfterPost(DataSet: TDataSet);
begin
confirma_dados;
end;
procedure TDM_DADOS.DataModuleCreate(Sender: TObject);
begin
end;
end.
(esse é o codigo do DMDADOS)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)