ActiveDelphi

[adriano_servitec]

Olah pessoal eh o sequinte criei uma SP e preciso passar os valores para ela, mais esta gerando o sequinte erro "List index out of bounds(31)"
O problema esta somente quando tento passar por query

[adriano_servitec]

Continuando pq nao deu para postar tudo num post
Por IBTable nao tem problema

[adriano_servitec]

Desculpe postar em tanto post assim, mais foi a unica maneira que encontrei para msotrar o meu problema

Nao sei se precisa, mais tambem vou postar a StoredPorc

[adriano_servitec]

Resolvi mudar de SP para IBTable mesmo jogando os valores em tres tabelas, agora a duvida eh como fazer um update em cascata, para que as outras tabelas fiquem atualizadas tambem?
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

[thomazs]

Você pode usar uma trigger!

Agora com relação ao erro anteriormente citado, deve estar relacionado ao laço (quantidade de componentes) existentes. Se o valor for maior irá aparecer essa mensagem de erro. Por exemplo, na linha

[adriano_servitec]

[adriano_servitec]

Nao consigo passar por SP de maneira alguma

olha o codigo

[adriano_servitec]

2ª parte do codigo

[Lane1902]

Vamos ver se posso ter ajudar um pouco a solucionar o problema de envio de campos para a StoredProcedure, voce esta usando campos edit nao ?, ok entao so uma dica, pra utilizar esta procedure nomeie os campos edits com o mesmo nome da base de dados, exemplo :
Campo na base de dados = COD_CLIENTE.
Nome do Edit na tela = COD_CLIENTE.

ok.

Segue a procedure:

Declarando a procedure:

{ Trazer os Dados da Tela p/ o Banco de Dados. }
procedure PTelaBC( Objeto: TIBStoredProc; Tipo: integer );


Criando a procedure:

procedure PTelaBC( Objeto: TIBStoredProc; Tipo: integer );
(*
Nome : PTelaBC
Objetivo : Carregar os Dados da Tela p/ o Banco de Dados.
Data : 19/01/2005.
Autor : Ricardo Scarpim.
Parâmetros:
Entrada :
Objeto = TStoredProcedure.
Tipo = Incluindo / Alterando.

OBS :
No Formulário, os Campos Devem Receber o Mesmo Nome que Consta na
Tabela, a Stored Procedure Também deverá Conter o Mesmo Nome do Campo
que Constar na Tabela.
*)

Var
i : integer;
Source : TParam;
sForm : String;
Form : TForm;
begin

With DMClientes, Objeto Do
begin

{ Pega o Nome do Form Ativo. }
Form := Screen.ActiveForm;

{ Inicia a Busca Pelo Nome dos Componentes no Form. }
For i := 0 To Form.ComponentCount - 1 Do
begin

{ Processar as Mensagens. }
Application.ProcessMessages;

{ Se Estiver no Intervalo de Componentes Exigido: }
IF ( Form.Components[i].ClassName = 'TMaskEdit' ) OR
( Form.Components[i].ClassName = 'TEdit' ) OR
( Form.Components[i].ClassName = 'TRichEdit' ) OR
( Form.Components[i].ClassName = 'TMemo' ) OR
( Form.Components[i].ClassName = 'TCheckBox' ) OR
( Form.Components[i].ClassName = 'TComboBox' ) OR
( Form.Components[i].ClassName = 'TDateEdit' ) OR
( Form.Components[i].ClassName = 'TRadioGroup' ) OR
( Form.Components[i].ClassName = 'TCurrencyEdit' ) OR
( Form.Components[i].ClassName = 'TFilenameEdit' ) OR
( Form.Components[i].ClassName = 'TDirectoryEdit' ) OR
( Form.Components[i].ClassName = 'TRxSpinEdit' )then
begin

{ Localizar o Parametro na Stored Procedure. }
Source := Objeto.Params.FindParam( Form.Components[i].Name );

{ Se Localizar o Objeto. }
IF Source <> NIL then
begin

{ Verifica se é Edit. }
IF Form.Components[i] is TEdit then
begin
IF Source.DataType = ftString then
Source.Value := TEdit(Form.Components[i]).Text;

{ Se for do Tipo Data. }
IF Source.DataType = ftDateTime then
begin
IF TEdit( Form.Components[i] ).Text <> '' then
Source.Value := StrToDateTime( TEdit( Form.Components[i] ).Text );
end;

{ Se for do Tipo Flutuante. }
IF Source.DataType in [ftFloat, ftInteger] then
begin
IF TEdit(Form.Components[i]).Text <> '' then
Source.Value := StrToFloatDef(TEdit(Form.Components[i]).Text, 0 );
end;
end;

{ Verifica se é MaskEdit. }
IF Form.Components[i] is TMaskEdit then
begin

{ Tipo de Dado = string. }
IF Source.DataType = ftString then
begin

IF( Source.Name = 'CIF' ) then
Source.Value := FFormate( TMaskEdit( Form.Components [i] ).Text, 0 )
else
Source.Value := TMaskEdit( Form.Components[i] ).Text;
end;

{ Tipo de Dado = Data e Hora. }
IF Source.DataType = ftDate then
begin

IF( ( TMaskEdit(Form.Components[i]).Text <> '' ) AND ( TMaskEdit(Form.Components[i]).Text <> ' / / ' ) ) then
Source.Value := StrToDate( TMaskEdit(Form.Components[i]).Text )
else
Source.Value := NULL;
end;

{ Tipo de Dado = Float e Integer. }
IF Source.DataType in [ftFloat, ftInteger] then
begin
IF TMaskEdit(Form.Components[i]).Text <> '' then
Source.Value := StrToFloatDef( TMaskEdit(Form.Components[i]).Text, 0 );
end;
end;

{ Verifica se é RichEdit. }
IF Form.Components[i] is TRichEdit then
Source.Value := TRichEdit(Form.Components[i]).Text;

{ Verifica se é Memo. }
IF Form.Components[i] is TMemo then
Source.Value := TMemo(Form.Components[i]).Lines.Text;

{ Verifica se é CheckBox. }
IF Form.Components[i] is TCheckBox then
IF TCheckBox( Form.Components[i] ).Checked then
Source.Value := 1
else
Source.Value := 0;

{ Verifica se é ComboBox. }
IF Form.Components[i] is TComboBox then
Source.Value := TComboBox( Form.Components[i]).Text;

{ Verifica se é TDateEdit. }
IF Form.Components[i] is TDateEdit then
IF( ( TDateEdit(Form.Components[i]).Text <> '' ) AND ( TDateEdit(Form.Components[i]).Text <> ' / / ' ) ) then
Source.Value := TDateEdit( Form.Components[i]).Text
else
Source.Value := NULL;

{ Verifica se é RadioGroup. }
IF Form.Components[i] is TRadioGroup then
Source.Value := TRadioGroup( Form.Components[i]).ItemIndex;

{ Verificar se é TCurrencyEdit }
IF Form.Components[i] is TCurrencyEdit then
begin

{ Tipo de Dado = Float e Integer. }
IF Source.DataType in [ftFloat, ftInteger] then
begin
IF TCurrencyEdit(Form.Components[i]).Text <> '' then
Source.Value := StrToFloatDef( TCurrencyEdit( Form.Components[i] ).Text, 0 );
end;
end;

{ Verificar se é TFileNameEdit. }
IF Form.Components[i] is TFilenameEdit then
Source.Value := TFilenameEdit( Form.Components[i] ).Text;

{ Verificar se é TDirectoryEdit. }
IF Form.Components[i] is TDirectoryEdit then
Source.Value := TDirectoryEdit( Form.Components[i] ).Text;

{ Verificar se é TRxSpinEdit. }
IF Form.Components[i] is TRxSpinEdit then
Source.Value := TRxSpinEdit( Form.Components [i] ).Text;
end;
end;
end;

{ Passagem da Operacao que a SP irá Executar: 1 - Incluir 2 - Alterar 3 - Excluir. }
Source := Params.FindParam('Tipo');

IF Source <> NIL then
Source.Value := Tipo;

{ Obter nome do formulário ativo. }
sForm := Screen.ActiveForm.Name;

{ Iniciando Transação. }
Try
begin

{ Executa Procedure. }
ExecProc;

{ Comitar a Transação. }
DMConexao.Transaction.CommitRetaining;
end;
{ Se o Banco Retornar Algum Erro... . }
except on E: EDataBaseError do
begin

{ Mostrar a Mensagem. }
MessageDlg( 'Problemas no Envio dos Dados ao Servidor!' + #13 + #10 + #13 + #10 +
'Formulário: ' + sForm + #13 + #10 +
'Procedure: ' + Objeto.Name + #13 + #10 +
'Mensagem: ' + E.Message + #13 + #10 + #13 + #10 +
'Contate o Suporte Informando os Dados Acima!', mtError, [mbOK], 0);
end;
end;
end;
end;


Chame a procedure assim :

{ Procedimento para Levar os Dados da Tela para o Banco de Dados.}
PTelaBC( SpClientes, Operacao );


Espero ter ajudado voce, caso voce queira passar parametros diretamente sem utilizar esta procedure, basta colocar o nome do edit diferente do nome na base de dados e passar como parametro antes de chamar a procedure ex:

Params [ 9].Value := ednome.text;

PTelaBC( SpClientes, Operacao );

Ok um abraco, qualquer coisa manda ver.

[adriano_servitec]

Obrigado por responder meu post Lane1902, vou dar uma olhada com calma a tua resposta sobre o codigo que tu postou, pode ser que use futuramente, pois essa etapa resolvi usar o ibTable e passar por array, pq. tenho prazo de entrega e a SP estava me atrazando.

Respondendo a tua pergunta estou sim passando os parametros por edits. mais acho que o erro eh pq envolve um laço. Bom depois que eu testar o codigo posto como ficou amigo.

Obrigado.
Adriano.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree