 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
amauri1966
Novato
Registrado: Segunda-Feira, 26 de Junho de 2006
Mensagens: 28
|
 Enviada: Ter Dez 12, 2006 8:28 am Assunto: Problemas no Fire Bird 2 |
 |
|
| Moderadores Active-Delphi escreveu: |
Tópico movido por gustavocco.
Motivo: Respeite a divisão do Fórum.
|
Tenho um banco de dados em FireBird 2 que funciona em uma centena de clientes, porem em um quando eu tento salvar qualquer informação em uma tabela ele me da a seguinte mensagem.
************************************************************
ISC ERROR CODE:335544569
ISC ERROR MESSAGE:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, column 14
"CAM00400"
************************************************************
Eu tentei excluir a tabela e cria-la novamente só que a mensagem também ocorre quando eu tento criar esta tabela.
Algém sabe o que está acontecendo? |
|
| Voltar ao Topo |
|
 |
delphagundes
Aprendiz
Registrado: Sexta-Feira, 10 de Novembro de 2006
Mensagens: 161
|
| Enviada: Ter Dez 12, 2006 8:32 am Assunto: Re: Problemas no Fire Bird 2 |
|
|
| amauri1966 escreveu: | Tenho um banco de dados em FireBird 2 que funciona em uma centena de clientes, porem em um quando eu tento salvar qualquer informação em uma tabela ele me da a seguinte mensagem.
************************************************************
ISC ERROR CODE:335544569
ISC ERROR MESSAGE:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, column 14
"CAM00400"
************************************************************
Eu tentei excluir a tabela e cria-la novamente só que a mensagem também ocorre quando eu tento criar esta tabela.
Algém sabe o que está acontecendo? |
Bah...
Dar diagnóstico sem ver o paciente fica complexo.
Dê mais detalhes.
Mas acho que é algum probleminha no código.
Feito!
Flw!
Quando botar mais detalhes eu volto!
Abraços!
_________________
"Somos jovens e espertos!" |
|
| Voltar ao Topo |
|
|
amauri1966
Novato
Registrado: Segunda-Feira, 26 de Junho de 2006
Mensagens: 28
|
| Enviada: Ter Dez 12, 2006 8:54 am Assunto: Re: Problemas no Fire Bird 2 |
|
|
| delphagundes escreveu: | | amauri1966 escreveu: | Tenho um banco de dados em FireBird 2 que funciona em uma centena de clientes, porem em um quando eu tento salvar qualquer informação em uma tabela ele me da a seguinte mensagem.
************************************************************
ISC ERROR CODE:335544569
ISC ERROR MESSAGE:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, column 14
"CAM00400"
************************************************************
Eu tentei excluir a tabela e cria-la novamente só que a mensagem também ocorre quando eu tento criar esta tabela.
Algém sabe o que está acontecendo? |
Bah...
Dar diagnóstico sem ver o paciente fica complexo.
Dê mais detalhes.
Mas acho que é algum probleminha no código.
Feito!
Flw!
Quando botar mais detalhes eu volto!
Abraços! |
Ok, eu envio todos os detalhes que precisarem, mas no momento estou totalmente perdido, diga-me de que detalhes eu preciso enviar.
Eu ja informei a versão do Fire bird que estou usando.
Informei que ele funciona em varios clientes e o problema está
está acontecendo em um só.
Informei que o probleba ocorreu quando eu tentei salvar algum
registro na tabela e também quando eu a exclui e tentei cria-la
novamente
Reproduzi exatamente a mensagem de erro que o banco está me
retornando
Eu não sei o que mais além disto eu preciso enviar, por favor me diga e eu envio, pensei até em colocar um script do banco mas isto é muito grande mas se for necessário é só me dizer que eu envio.
A única coisa que faltou é que neste cliente a plataforma é
windows XP funcionando em máquina local, mas em todos os
outros onde o banco está funcionando também é.
Por enquanto muito obrigado pela atenção. |
|
| Voltar ao Topo |
|
|
gustavocco
Administrador
Registrado: Sexta-Feira, 6 de Fevereiro de 2004
Mensagens: 4253
Localização: Chapecó - SC
|
| Enviada: Ter Dez 12, 2006 10:52 am Assunto: |
|
|
Olá, posta ai o sql que vc esta executando, assim poderemos entender melhor. Ficamos no aguardo.
Abraço. |
|
| Voltar ao Topo |
|
|
amauri1966
Novato
Registrado: Segunda-Feira, 26 de Junho de 2006
Mensagens: 28
|
| Enviada: Ter Dez 12, 2006 12:08 pm Assunto: |
|
|
| gustavocco escreveu: | Olá, posta ai o sql que vc esta executando, assim poderemos entender melhor. Ficamos no aguardo.
Abraço. |
Segue o script completo do BD, o problema acontece com qualquer tabela. basta dar u editar e salvar que o problema ocorre. estou utilizando o IBOConsole como editor de BD.
***********************************************************
**********************************************************************************************************************
**********************************************************************************************************************
***********************************************************
SET SQL DIALECT 3;
/* CREATE DATABASE 'C:\DSystem\Bda\CAM.GDB' PAGE_SIZE 4096
DEFAULT CHARACTER SET ISO8859_1 */
/* Table: CAM00100, Owner: SYSDBA */
CREATE TABLE "CAM00100"
(
"CA001" INTEGER NOT NULL,
"CA002" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA003" VARCHAR(15) CHARACTER SET ISO8859_1,
"CA004" VARCHAR(2) CHARACTER SET ISO8859_1,
"CA005" VARCHAR(10) CHARACTER SET ISO8859_1,
"CA006" INTEGER,
CONSTRAINT "CAM00100_Pk" PRIMARY KEY ("CA001")
);
/* Table: CAM00200, Owner: SYSDBA */
CREATE TABLE "CAM00200"
(
"CA001" INTEGER NOT NULL,
"CA002" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA003" VARCHAR(2) CHARACTER SET ISO8859_1,
CONSTRAINT "CAM00200_Pk" PRIMARY KEY ("CA001")
);
/* Table: CAM00300, Owner: SYSDBA */
CREATE TABLE "CAM00300"
(
"CA001" VARCHAR(20) CHARACTER SET ISO8859_1 NOT NULL,
"CA002" DOUBLE PRECISION,
"CA003" VARCHAR(40) CHARACTER SET ISO8859_1,
"CA004" DOUBLE PRECISION,
CONSTRAINT "CAM00300_Pk" PRIMARY KEY ("CA001")
);
/* Table: CAM00400, Owner: SYSDBA */
CREATE TABLE "CAM00400"
(
"CA001" INTEGER NOT NULL,
"CA002" INTEGER NOT NULL,
"CA003" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA004" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA005" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA006" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA007" INTEGER,
"CA008" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA009" INTEGER,
"CA010" DATE,
"CA011" INTEGER,
"CA012" DATE,
"CA013" INTEGER,
"CA014" VARCHAR(20) CHARACTER SET ISO8859_1,
"CA015" DATE,
"CA016" DOUBLE PRECISION,
"CA017" DOUBLE PRECISION,
"CA018" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA019" VARCHAR(32) CHARACTER SET ISO8859_1,
"CA020" VARCHAR(13) CHARACTER SET ISO8859_1,
"CA021" INTEGER,
"CA022" VARCHAR(10) CHARACTER SET ISO8859_1,
"CA023" FLOAT,
"CA024" BLOB SUB_TYPE TEXT SEGMENT SIZE 80 CHARACTER SET ISO8859_1,
CONSTRAINT "CAM00400_Pk" PRIMARY KEY ("CA001")
);
/* Table: CAM00401, Owner: SYSDBA */
CREATE TABLE "CAM00401"
(
"CA001" INTEGER NOT NULL,
"CA002" VARCHAR(40) CHARACTER SET ISO8859_1,
"CA003" VARCHAR(15) CHARACTER SET ISO8859_1,
"CA004" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA005" VARCHAR(10) CHARACTER SET ISO8859_1,
"CA006" VARCHAR(20) CHARACTER SET ISO8859_1,
"CA007" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA008" VARCHAR(10) CHARACTER SET ISO8859_1,
"CA009" VARCHAR(10) CHARACTER SET ISO8859_1,
"CA010" VARCHAR(40) CHARACTER SET ISO8859_1,
"CA011" VARCHAR(20) CHARACTER SET ISO8859_1,
"CA012" VARCHAR(15) CHARACTER SET ISO8859_1,
"CA013" VARCHAR(2) CHARACTER SET ISO8859_1,
"CA014" DATE,
"CA015" BLOB SUB_TYPE TEXT SEGMENT SIZE 80 CHARACTER SET ISO8859_1,
"CA016" INTEGER,
"CA017" VARCHAR(1) CHARACTER SET ISO8859_1,
CONSTRAINT "CAM00401_Pk" PRIMARY KEY ("CA001")
);
/* Table: CAM00402, Owner: SYSDBA */
CREATE TABLE "CAM00402"
(
"CA001" INTEGER NOT NULL,
"CA002" INTEGER NOT NULL,
"CA003" VARCHAR(40) CHARACTER SET ISO8859_1,
"CA004" VARCHAR(15) CHARACTER SET ISO8859_1,
"CA005" VARCHAR(40) CHARACTER SET ISO8859_1,
"CA006" DATE,
"CA007" VARCHAR(30) CHARACTER SET ISO8859_1,
CONSTRAINT "CAM00402_Pk" PRIMARY KEY ("CA001")
);
/* Table: CAM00500, Owner: SYSDBA */
CREATE TABLE "CAM00500"
(
"CA001" INTEGER NOT NULL,
"CA002" VARCHAR(40) CHARACTER SET ISO8859_1,
"CA003" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA004" VARCHAR(10) CHARACTER SET ISO8859_1,
"CA005" VARCHAR(20) CHARACTER SET ISO8859_1,
"CA006" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA007" VARCHAR(30) CHARACTER SET ISO8859_1,
"CA008" VARCHAR(9) CHARACTER SET ISO8859_1,
"CA009" VARCHAR(2) CHARACTER SET ISO8859_1,
"CA010" VARCHAR(1 CHARACTER SET ISO8859_1,
"CA011" VARCHAR(1 CHARACTER SET ISO8859_1,
"CA012" VARCHAR(20) CHARACTER SET ISO8859_1,
"CA013" VARCHAR(50) CHARACTER SET ISO8859_1,
"CA014" VARCHAR(50) CHARACTER SET ISO8859_1,
"CA015" VARCHAR(20) CHARACTER SET ISO8859_1,
"CA016" DATE,
CONSTRAINT "CAM00500_Pk" PRIMARY KEY ("CA001")
);
/* Table: CAM00600, Owner: SYSDBA */
CREATE TABLE "CAM00600"
(
"CA001" INTEGER NOT NULL,
"CA002" VARCHAR(30) CHARACTER SET ISO8859_1,
CONSTRAINT "CAM00600_Pk" PRIMARY KEY ("CA001")
);
/* Table: CAM00700, Owner: SYSDBA */
CREATE TABLE "CAM00700"
(
"CA001" INTEGER NOT NULL,
"CA002" VARCHAR(30) CHARACTER SET ISO8859_1,
CONSTRAINT "CAM00700_Pk" PRIMARY KEY ("CA001")
);
COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;
/* Stored procedures */
CREATE PROCEDURE "MACAM00400"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VI_TIPO" INTEGER,
"VS_DESCRICAO" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_FABRICANTE" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_MODELO" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_NRO_SERIE" VARCHAR(30) CHARACTER SET ISO8859_1,
"VI_CTA_PATRIMONIAL" INTEGER,
"VS_NRO_PATRIMONIO" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_COD_FORNECEDOR" INTEGER,
"VD_DTA_AQUISICAO" DATE,
"VI_PRAZO_GARANTIA" INTEGER,
"VD_VCTO_GARANTIA" DATE,
"VI_SEGURADORA" INTEGER,
"VS_NRO_APOLICE" VARCHAR(20) CHARACTER SET ISO8859_1,
"VD_DTA_VCTO_APOLICE" DATE,
"VF_DEPR_ACUMULADA" FLOAT,
"VF_CORR_ACUMULADA" FLOAT,
"VS_LIVRE01" VARCHAR(20) CHARACTER SET ISO8859_1,
"VS_NRO_NOTA_FISCAL" VARCHAR(32) CHARACTER SET ISO8859_1,
"VS_LOC_FISICA" VARCHAR(13) CHARACTER SET ISO8859_1,
"VI_DPTO_ALOCADO" INTEGER,
"VS_CONJUNTO" VARCHAR(10) CHARACTER SET ISO8859_1,
"VF_VLR_AQUISICAO" FLOAT,
"VB_HISTORICO" BLOB CHARACTER SET ISO8859_1,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
BEGIN EXIT; END ^
CREATE PROCEDURE "MACAM00401"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VS_SIST_OPERACIONAL" VARCHAR(40) CHARACTER SET ISO8859_1,
"VS_VERSAO_SIST" VARCHAR(15) CHARACTER SET ISO8859_1,
"VS_PROCESSADOR" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_CLOC" VARCHAR(10) CHARACTER SET ISO8859_1,
"VS_MONITOR" VARCHAR(20) CHARACTER SET ISO8859_1,
"VS_SERIE_MONITOR" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_RAM" VARCHAR(10) CHARACTER SET ISO8859_1,
"VS_HD" VARCHAR(10) CHARACTER SET ISO8859_1,
"VS_USUARIO" VARCHAR(40) CHARACTER SET ISO8859_1,
"VS_IDENTIFICACAO" VARCHAR(20) CHARACTER SET ISO8859_1,
"VS_ENDERECO_IP" VARCHAR(15) CHARACTER SET ISO8859_1,
"VS_STATUS" VARCHAR(2) CHARACTER SET ISO8859_1,
"VD_ULT_MANUTENCAO" DATE,
"VS_HISTORICO_STATUS" BLOB CHARACTER SET ISO8859_1,
"VI_NRO_IP" INTEGER,
"VS_ACESSA_INTERNET" VARCHAR(1) CHARACTER SET ISO8859_1,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
BEGIN EXIT; END ^
CREATE PROCEDURE "MACAM00402"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VI_CODIGO_BEM" INTEGER,
"VS_DESCRICAO_SOFTWARE" VARCHAR(40) CHARACTER SET ISO8859_1,
"VS_VERSAO" VARCHAR(15) CHARACTER SET ISO8859_1,
"VS_NRO_LICENCA" VARCHAR(40) CHARACTER SET ISO8859_1,
"VD_DTA_EXPIRACAO" DATE,
"VS_FABRICANTE" VARCHAR(30) CHARACTER SET ISO8859_1,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
BEGIN EXIT; END ^
CREATE PROCEDURE "MACAM00500"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VS_NOME" VARCHAR(40) CHARACTER SET ISO8859_1,
"VS_ENDERECO" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_NUMERO" VARCHAR(10) CHARACTER SET ISO8859_1,
"VS_COMPLEMENTO" VARCHAR(20) CHARACTER SET ISO8859_1,
"VS_BAIRRO" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_CIDADE" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_CEP" VARCHAR(9) CHARACTER SET ISO8859_1,
"VS_ESTADO" VARCHAR(2) CHARACTER SET ISO8859_1,
"VS_CNPJ" VARCHAR(1 CHARACTER SET ISO8859_1,
"VS_INSC_ESTADUAL" VARCHAR(1 CHARACTER SET ISO8859_1,
"VS_TELEFONE" VARCHAR(20) CHARACTER SET ISO8859_1,
"VS_SITE" VARCHAR(50) CHARACTER SET ISO8859_1,
"VS_E_MAIL" VARCHAR(50) CHARACTER SET ISO8859_1,
"VS_HELPDESK" VARCHAR(20) CHARACTER SET ISO8859_1,
"VD_ULT_COMPRA" DATE,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
BEGIN EXIT; END ^
CREATE PROCEDURE "MACAM00600"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VS_DESCRICAO" VARCHAR(40) CHARACTER SET ISO8859_1,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
BEGIN EXIT; END ^
CREATE PROCEDURE "MACAM00700"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VS_DESCRICAO" VARCHAR(40) CHARACTER SET ISO8859_1,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
BEGIN EXIT; END ^
ALTER PROCEDURE "MACAM00400"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VI_TIPO" INTEGER,
"VS_DESCRICAO" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_FABRICANTE" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_MODELO" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_NRO_SERIE" VARCHAR(30) CHARACTER SET ISO8859_1,
"VI_CTA_PATRIMONIAL" INTEGER,
"VS_NRO_PATRIMONIO" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_COD_FORNECEDOR" INTEGER,
"VD_DTA_AQUISICAO" DATE,
"VI_PRAZO_GARANTIA" INTEGER,
"VD_VCTO_GARANTIA" DATE,
"VI_SEGURADORA" INTEGER,
"VS_NRO_APOLICE" VARCHAR(20) CHARACTER SET ISO8859_1,
"VD_DTA_VCTO_APOLICE" DATE,
"VF_DEPR_ACUMULADA" FLOAT,
"VF_CORR_ACUMULADA" FLOAT,
"VS_LIVRE01" VARCHAR(20) CHARACTER SET ISO8859_1,
"VS_NRO_NOTA_FISCAL" VARCHAR(32) CHARACTER SET ISO8859_1,
"VS_LOC_FISICA" VARCHAR(13) CHARACTER SET ISO8859_1,
"VI_DPTO_ALOCADO" INTEGER,
"VS_CONJUNTO" VARCHAR(10) CHARACTER SET ISO8859_1,
"VF_VLR_AQUISICAO" FLOAT,
"VB_HISTORICO" BLOB CHARACTER SET ISO8859_1,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
begin
if (:tipo = 'I') then
begin
Insert into "CAM00400" ( "CA001",
"CA002",
"CA003",
"CA004",
"CA005",
"CA006",
"CA007",
"CA008",
"CA009",
"CA010",
"CA011",
"CA012",
"CA013",
"CA014",
"CA015",
"CA016",
"CA017",
"CA018",
"CA019",
"CA020",
"CA021",
"CA022",
"CA023",
"CA024" )
values ( :VI_CODIGO ,
:VI_TIPO ,
:VS_DESCRICAO ,
:VS_FABRICANTE ,
:VS_MODELO ,
:VS_NRO_SERIE ,
:VI_CTA_PATRIMONIAL ,
:VS_NRO_PATRIMONIO ,
:VS_COD_FORNECEDOR ,
:VD_DTA_AQUISICAO ,
:VI_PRAZO_GARANTIA ,
:VD_VCTO_GARANTIA ,
:VI_SEGURADORA ,
:VS_NRO_APOLICE ,
:VD_DTA_VCTO_APOLICE ,
:VF_DEPR_ACUMULADA ,
:VF_CORR_ACUMULADA ,
:VS_LIVRE01 ,
:VS_NRO_NOTA_FISCAL ,
:VS_LOC_FISICA ,
:VI_DPTO_ALOCADO ,
:VS_CONJUNTO ,
:VF_VLR_AQUISICAO ,
:VB_HISTORICO );
End
if (:tipo = 'A') then
begin
Update "CAM00400" set "CA001" = :VI_CODIGO ,
"CA002" = :VI_TIPO ,
"CA003" = :VS_DESCRICAO ,
"CA004" = :VS_FABRICANTE ,
"CA005" = :VS_MODELO ,
"CA006" = :VS_NRO_SERIE ,
"CA007" = :VI_CTA_PATRIMONIAL ,
"CA008" = :VS_NRO_PATRIMONIO ,
"CA009" = :VS_COD_FORNECEDOR ,
"CA010" = :VD_DTA_AQUISICAO ,
"CA011" = :VI_PRAZO_GARANTIA ,
"CA012" = :VD_VCTO_GARANTIA ,
"CA013" = :VI_SEGURADORA ,
"CA014" = :VS_NRO_APOLICE ,
"CA015" = :VD_DTA_VCTO_APOLICE ,
"CA016" = :VF_DEPR_ACUMULADA ,
"CA017" = :VF_CORR_ACUMULADA ,
"CA018" = :VS_LIVRE01 ,
"CA019" = :VS_NRO_NOTA_FISCAL ,
"CA020" = :VS_LOC_FISICA ,
"CA021" = :VI_DPTO_ALOCADO ,
"CA022" = :VS_CONJUNTO ,
"CA023" = :VF_VLR_AQUISICAO ,
"CA024" = :VB_HISTORICO
where "CA001" = :id;
end
if (:tipo = 'D') then
begin
Delete from "CAM00400" where "CA001" = :id;
end
end
^
ALTER PROCEDURE "MACAM00401"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VS_SIST_OPERACIONAL" VARCHAR(40) CHARACTER SET ISO8859_1,
"VS_VERSAO_SIST" VARCHAR(15) CHARACTER SET ISO8859_1,
"VS_PROCESSADOR" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_CLOC" VARCHAR(10) CHARACTER SET ISO8859_1,
"VS_MONITOR" VARCHAR(20) CHARACTER SET ISO8859_1,
"VS_SERIE_MONITOR" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_RAM" VARCHAR(10) CHARACTER SET ISO8859_1,
"VS_HD" VARCHAR(10) CHARACTER SET ISO8859_1,
"VS_USUARIO" VARCHAR(40) CHARACTER SET ISO8859_1,
"VS_IDENTIFICACAO" VARCHAR(20) CHARACTER SET ISO8859_1,
"VS_ENDERECO_IP" VARCHAR(15) CHARACTER SET ISO8859_1,
"VS_STATUS" VARCHAR(2) CHARACTER SET ISO8859_1,
"VD_ULT_MANUTENCAO" DATE,
"VS_HISTORICO_STATUS" BLOB CHARACTER SET ISO8859_1,
"VI_NRO_IP" INTEGER,
"VS_ACESSA_INTERNET" VARCHAR(1) CHARACTER SET ISO8859_1,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
begin
if (:tipo = 'I') then
begin
Insert into "CAM00401" ( "CA001",
"CA002",
"CA003",
"CA004",
"CA005",
"CA006",
"CA007",
"CA008",
"CA009",
"CA010",
"CA011",
"CA012",
"CA013",
"CA014",
"CA015",
"CA016",
"CA017")
values ( :VI_CODIGO ,
:VS_SIST_OPERACIONAL,
:VS_VERSAO_SIST ,
:VS_PROCESSADOR ,
:VS_CLOC ,
:VS_MONITOR ,
:VS_SERIE_MONITOR ,
:VS_RAM ,
:VS_HD ,
:VS_USUARIO ,
:VS_IDENTIFICACAO ,
:VS_ENDERECO_IP ,
:VS_STATUS ,
:VD_ULT_MANUTENCAO ,
:VS_HISTORICO_STATUS,
:VI_NRO_IP,
:VS_ACESSA_INTERNET);
End
if (:tipo = 'A') then
begin
Update "CAM00401" set "CA001" = :VI_CODIGO ,
"CA002" = :VS_SIST_OPERACIONAL,
"CA003" = :VS_VERSAO_SIST ,
"CA004" = :VS_PROCESSADOR ,
"CA005" = :VS_CLOC ,
"CA006" = :VS_MONITOR ,
"CA007" = :VS_SERIE_MONITOR ,
"CA008" = :VS_RAM ,
"CA009" = :VS_HD ,
"CA010" = :VS_USUARIO ,
"CA011" = :VS_IDENTIFICACAO ,
"CA012" = :VS_ENDERECO_IP ,
"CA013" = :VS_STATUS ,
"CA014" = :VD_ULT_MANUTENCAO ,
"CA015" = :VS_HISTORICO_STATUS,
"CA016" = :VI_NRO_IP,
"CA017" = :VS_ACESSA_INTERNET
where "CA001" = :id;
end
if (:tipo = 'D') then
begin
Delete from "CAM00401" where "CA001" = :id;
end
end
^
ALTER PROCEDURE "MACAM00402"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VI_CODIGO_BEM" INTEGER,
"VS_DESCRICAO_SOFTWARE" VARCHAR(40) CHARACTER SET ISO8859_1,
"VS_VERSAO" VARCHAR(15) CHARACTER SET ISO8859_1,
"VS_NRO_LICENCA" VARCHAR(40) CHARACTER SET ISO8859_1,
"VD_DTA_EXPIRACAO" DATE,
"VS_FABRICANTE" VARCHAR(30) CHARACTER SET ISO8859_1,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
begin
if (:tipo = 'I') then
begin
Insert into "CAM00402" ( "CA001",
"CA002",
"CA003",
"CA004",
"CA005",
"CA006",
"CA007")
values ( :VI_CODIGO ,
:VI_CODIGO_BEM,
:VS_DESCRICAO_SOFTWARE,
:VS_VERSAO,
:VS_NRO_LICENCA,
:VD_DTA_EXPIRACAO,
:VS_FABRICANTE);
End
if (:tipo = 'A') then
begin
Update "CAM00402" set "CA001" = :VI_CODIGO ,
"CA002" = :VI_CODIGO_BEM,
"CA003" = :VS_DESCRICAO_SOFTWARE,
"CA004" = :VS_VERSAO,
"CA005" = :VS_NRO_LICENCA,
"CA006" = :VD_DTA_EXPIRACAO,
"CA007" = :VS_FABRICANTE
where "CA001" = :id;
end
if (:tipo = 'D') then
begin
Delete from "CAM00402" where "CA001" = :id;
end
end
^
ALTER PROCEDURE "MACAM00500"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VS_NOME" VARCHAR(40) CHARACTER SET ISO8859_1,
"VS_ENDERECO" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_NUMERO" VARCHAR(10) CHARACTER SET ISO8859_1,
"VS_COMPLEMENTO" VARCHAR(20) CHARACTER SET ISO8859_1,
"VS_BAIRRO" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_CIDADE" VARCHAR(30) CHARACTER SET ISO8859_1,
"VS_CEP" VARCHAR(9) CHARACTER SET ISO8859_1,
"VS_ESTADO" VARCHAR(2) CHARACTER SET ISO8859_1,
"VS_CNPJ" VARCHAR(1 CHARACTER SET ISO8859_1,
"VS_INSC_ESTADUAL" VARCHAR(1 CHARACTER SET ISO8859_1,
"VS_TELEFONE" VARCHAR(20) CHARACTER SET ISO8859_1,
"VS_SITE" VARCHAR(50) CHARACTER SET ISO8859_1,
"VS_E_MAIL" VARCHAR(50) CHARACTER SET ISO8859_1,
"VS_HELPDESK" VARCHAR(20) CHARACTER SET ISO8859_1,
"VD_ULT_COMPRA" DATE,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
begin
if (:tipo = 'I') then
begin
Insert into "CAM00500" ( "CA001",
"CA002",
"CA003",
"CA004",
"CA005",
"CA006",
"CA007",
"CA008",
"CA009",
"CA010",
"CA011",
"CA012",
"CA013",
"CA014",
"CA015",
"CA016" )
values ( :VI_CODIGO ,
:VS_NOME ,
:VS_ENDERECO ,
:VS_NUMERO ,
:VS_COMPLEMENTO ,
:VS_BAIRRO ,
:VS_CIDADE ,
:VS_CEP ,
:VS_ESTADO ,
:VS_CNPJ ,
:VS_INSC_ESTADUAL ,
:VS_TELEFONE ,
:VS_SITE ,
:VS_E_MAIL ,
:VS_HELPDESK ,
:VD_ULT_COMPRA );
End
if (:tipo = 'A') then
begin
Update "CAM00500" set "CA001" = :VI_CODIGO ,
"CA002" = :VS_NOME ,
"CA003" = :VS_ENDERECO ,
"CA004" = :VS_NUMERO ,
"CA005" = :VS_COMPLEMENTO ,
"CA006" = :VS_BAIRRO ,
"CA007" = :VS_CIDADE ,
"CA008" = :VS_CEP ,
"CA009" = :VS_ESTADO ,
"CA010" = :VS_CNPJ ,
"CA011" = :VS_INSC_ESTADUAL,
"CA012" = :VS_TELEFONE ,
"CA013" = :VS_SITE ,
"CA014" = :VS_E_MAIL ,
"CA015" = :VS_HELPDESK ,
"CA016" = :VD_ULT_COMPRA
where "CA001" = :id;
end
if (:tipo = 'D') then
begin
Delete from "CAM00500" where "CA001" = :id;
end
end
^
ALTER PROCEDURE "MACAM00600"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VS_DESCRICAO" VARCHAR(40) CHARACTER SET ISO8859_1,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
begin
if (:tipo = 'I') then
begin
Insert into "CAM00600" ( "CA001",
"CA002" )
values ( :VI_CODIGO ,
:VS_DESCRICAO);
End
if (:tipo = 'A') then
begin
Update "CAM00600" set "CA001" = :VI_CODIGO ,
"CA002" = :VS_DESCRICAO
where "CA001" = :id;
end
if (:tipo = 'D') then
begin
Delete from "CAM00600" where "CA001" = :id;
end
end
^
ALTER PROCEDURE "MACAM00700"
(
"ID" INTEGER,
"VI_CODIGO" INTEGER,
"VS_DESCRICAO" VARCHAR(40) CHARACTER SET ISO8859_1,
"TIPO" VARCHAR(1) CHARACTER SET ISO8859_1
)
AS
begin
if (:tipo = 'I') then
begin
Insert into "CAM00700" ( "CA001",
"CA002" )
values ( :VI_CODIGO ,
:VS_DESCRICAO);
End
if (:tipo = 'A') then
begin
Update "CAM00700" set "CA001" = :VI_CODIGO ,
"CA002" = :VS_DESCRICAO
where "CA001" = :id;
end
if (:tipo = 'D') then
begin
Delete from "CAM00700" where "CA001" = :id;
end
end
^
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;
/* Grant Roles for this database */
/* Grant permissions for this database */
***********************************************************
**********************************************************************************************************************
**********************************************************************************************************************
***********************************************************
Por enquanto muito obrigado. |
|
| Voltar ao Topo |
|
|
GodZilla_XF
Aprendiz
Registrado: Quinta-Feira, 12 de Junho de 2003
Mensagens: 185
Localização: Água Boa - MT
|
| Enviada: Ter Dez 12, 2006 3:38 pm Assunto: Olá |
|
|
Amigo vc ja deu uma olhada nas permissões de Usuarios do windows e do seu db, quem sabe ele naum esta sem permissão para escrever nesta pasta, agora tbm pode ser uma questao um pouco mais dioda ainda, sera que o setor do hd desta maquina onde vc esta tentando colocar esta base de dados naum esta com problemas, tende colocar em um outro disco so para testar, pode ser tbm uma questao de espaço em disco, olha eu naum sei se isso vai te ajudar, mas de uma olhada, por que progranmação e isso ai mesmo, tem umas coisas que naum tem logica, hehhaehahe
té mais cara
_________________
<b>GodZilla_XF</b>
<b><i>Algoritimizando...</b></i> |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
