Gerson

as colunas batem sim. (se era a isso que voce se referia)

insert into REL_ESTOQUE(CPRODUTO , D3, L3, D5, L5, D8, L8, L10, D10)
                values(:PCPRODUTO, 0 , 0 , 0 , 0 , 0 , 0 , 0  , 0);

  
ja respondi de manha que com os dados do Rodrigo eu criei um banco e a
procedure sem problemas

Atenc;
Elazar

-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Gerson Machado
Enviada em: sexta-feira, 24 de fevereiro de 2006 09:58
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] ERRO NA SP - PRAZO DE ENTREGA EXPIRANDO !!!


Não olhei a logica... mas a mensagem informa que as colunas informadas
para atualização não batem com o número de parametros informados, algo
como:
   
  insert into minhatabela (c1, c2, c3) values (1, 2).... erro falta o
valor para c3.
   
  Gerson
  

Rodrigo - Winsoft <[EMAIL PROTECTED]> escreveu:
  BOM DIA GALERA...

TENHO AS SEGUINTES TABELAS:


CREATE TABLE PRODUTO (
    CPRODUTO          VARCHAR(15) NOT NULL COLLATE PXW_INTL850,
    NPRODUTO          VARCHAR(200) NOT NULL COLLATE PXW_INTL850
);


CREATE TABLE ESTOQUE (
    CPRODUTO            VARCHAR(15) NOT NULL COLLATE PXW_INTL850,
    CEMPRESA            D_CODIGO,
    EST_LOJA            NUMERIC(18,3) NOT NULL,
    EST_DEPO            NUMERIC(18,3) DEFAULT 0 NOT NULL
);


CREATE TABLE REL_ESTOQUE (
    CPRODUTO  D_CODPRODUTO,
    D3        D_VALOR3, /* CORRESPONDE AO ESTOQUE DEPOSITO DA EMPRESA DE
COD. 3
    L3        D_VALOR3, /* CORRESPONDE AO ESTOQUE LOJA DA EMPRESA DE
COD. 3
    D5        D_VALOR3, /* CORRESPONDE AO ESTOQUE DEPOSITO DA EMPRESA DE
COD. 5
    L5        D_VALOR3, /* CORRESPONDE AO ESTOQUE LOJA DA EMPRESA DE
COD. 5
    D8        D_VALOR3, /* CORRESPONDE AO ESTOQUE DEPOSITO DA EMPRESA DE
COD. 8 
    L8        D_VALOR3, /* CORRESPONDE AO ESTOQUE LOJA DA EMPRESA DE
COD. 8
    D10       D_VALOR3, /* CORRESPONDE AO ESTOQUE DEPOSITO DA EMPRESA DE
COD. 10
    L10       D_VALOR3  /* CORRESPONDE AO ESTOQUE LOJA DA EMPRESA DE
COD. 10
);


estou criando a store procedure abaixo

CREATE PROCEDURE GERAR_ESTOQUE_GERAL (
    PEST_LOJA FLOAT,
    PEST_DEPO FLOAT,
    PCEMPRESA INTEGER,
    PCPRODUTO VARCHAR(15))
AS
begin
  /* CRIAR OS PRODUTOS NA TABELA DE REL_ESTOQUE */
  for
    select P.CProduto from PRODUTO P order by P.CProduto into :PCPRODUTO
  do begin
    insert into REL_ESTOQUE(CPRODUTO, D3, L3, D5, L5, D8, L8, L10, D10)
    values(:PCPRODUTO, 0, 0, 0, 0, 0, 0, 0, 0);
  end


  /* select na tabela de estoque */
  for
    select E.* from ESTOQUE E order by E.CPRODUTO into :PCPRODUTO,
:PCEMPRESA, :PEST_LOJA, :PEST_DEPO
  do begin
    /* VERIFICAR SE EXISTE O PRODUTO, SEMPRE VAI EXISTIR, POIS INCLUO NA
PARTE DE CIMA */ 

    if (exists (select RE.* from REL_ESTOQUE RE where RE.CPRODUTO =
:PCPRODUTO)) then
    begin
      /*  VERIFICAR QUAL É A EMPRESA */   
      if (:PCEMPRESA = 3) then
      begin
        update REL_ESTOQUE set L3 = (L3 + :PEST_LOJA ), D3 = (D3 +
:PEST_DEPO) where CPRODUTO = :PCPRODUTO;
      end

      if (:PCEMPRESA = 5) then
      begin
        update REL_ESTOQUE set L5 = (L5 + :PEST_LOJA ), D5 = (D5 +
:PEST_DEPO) where CPRODUTO = :PCPRODUTO;
      end

      if (:PCEMPRESA = 8) then
      begin
        update REL_ESTOQUE set L8 = (L8 + :PEST_LOJA ), D8 = (D8 +
:PEST_DEPO) where CPRODUTO = :PCPRODUTO;
      end

      if (:PCEMPRESA = 10) then
      begin
        update REL_ESTOQUE set L10 = (L10 + :PEST_LOJA ), D10 = (D10 +
:PEST_DEPO) where CPRODUTO = :PCPRODUTO;
      end
    end
  end

  suspend;
end



ESTA ME RETORNADO O SEGUINTE ERRO:

count of column list and variable list do not match.
Dynamic SQL Error.
SQL error code = -313.
count of column list and variable list do not match.


sERÁ Q ALGUEM SABE O Q ESTÁ ACONTECENDO...
SEI Q É MEIO COMPLICADO, MAS É UM POUCO URGENTE !!!

sE ALGUEM PUDER ME AJUDAR......


Obrigado.

Rodrigo Pedroso
Winsoft Informática - (14) 3664-1586
[EMAIL PROTECTED]

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





        Yahoo! Grupos, um serviço oferecido por:            PUBLICIDADE
    var lrec_target="_blank";var lrec_URL=new Array();
lrec_URL[1]="http://br.ard.yahoo.com/SIG=12f2igi9m/M=396547.7942355.8867
957.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1140792423/A=3322891/R=0/
id=flashurl/SIG=154qqv6j6/*http://lt.dell.com/lt/lt.aspx?CID=11460&LID=3
16158&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/cat
egory.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";  var
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/230206_y300x
250_feb04_dhs_dim5150.swf?clickTAG=javascript:LRECopenWindow(1)";  var
lrec_altURL="http://br.ard.yahoo.com/SIG=12f2igi9m/M=396547.7942355.8867
957.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1140792423/A=3322891/R=1/
id=altimg/SIG=154qqv6j6/*http://lt.dell.com/lt/lt.aspx?CID=11460&LID=316
158&DGC=BA&DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/categ
ory.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs";  var
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads7/230206_y300x250
_feb04_dhs_dim5150.jpg";  var
lrec_width=300;var lrec_height=250;      
  
---------------------------------
  Links do Yahoo! Grupos
    
   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
    
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
    
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!. 



            
---------------------------------
Yahoo! Search
Dê uma espiadinha e saiba tudo sobre o Big Brother Brasil.

[As partes desta mensagem que não continham texto foram removidas]






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
 




Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!. 


                
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a