Filtros em dentro de filtros

17/11/2005

E a� galera...aproveitando a volta da normalidade do f�rum vamos as velhas d�vidas que matam....� o seguinte, tenho em um cadastro de estoque o cadastro de produtos e tbm o cadastro de servi�o tudo integrado em uma talela....m�s a� veio a d�vida como separar em grids diferentes os produtos e os servi�o ?

Da� fiz isso quase deu certo m�s queria menos ganbiarrado...ou entaum colocar esta funcionado....

No form onde recebo as informa��es do estoque coloquei duas IBQuery uma com o nome de BD_ORCA_ITENS_A e BD_ORCA_ITENS_B, uma � c�pia da outra...

Minha Ordem de servi�o � integrada ao estoque, onde fa�o um relacionamento por c�digos entre o cadastro de equipamentos e os �tens que que quero colocar no or�amento aaaaaaaaaaaa�iiiiiiiiiii que entra as complica��es...

se eu tenho uma Ordem de servi�o com o c�digo 10, este c�digo � gravado em um campo especifico para posterior localiza��o dos �tens...o c�digo � este....

   _FORM_OS_OR.BD_ORCA_ITENS_AGS_OOEI_CODACES.Value := _FORM_OS_NAV.BD_OFC_ELEGS_OOE_CODIGO.value; ///Aki recebe o c�digo da Ordem de servi�o

este � o filtro que serve para determinar para onde o �tens v�o...

var
e:integer;
Begin
e:= E:=_FORM_OS_NAV.BD_OFC_ELEGS_OOE_CODIGO.Value; ////aki pega o c�digo da O.S.
     _FORM_OS_OR.BD_ORCA_ITENS_A.Close;
     _FORM_OS_OR.BD_ORCA_ITENS_A.SQL.Clear;
     _FORM_OS_OR.BD_ORCA_ITENS_A.SQL.Add(�select * from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES=�+inttostr(E));
     _FORM_OS_OR.BD_ORCA_ITENS_A.Open;

     _FORM_OS_OR.BD_ORCA_ITENS_B.Close;
     _FORM_OS_OR.BD_ORCA_ITENS_B.SQL.Clear;
     _FORM_OS_OR.BD_ORCA_ITENS_B.SQL.Add(�select * from ORCAMENTO_OFIC_ELET_ITENS where GS_OOEI_CODACES=�+inttostr(E));
     _FORM_OS_OR.BD_ORCA_ITENS_B.Open;

Agora e que vamos ao problema...ele filtra vamos supor 5 Produtos e 2 Servi�o ( cadastrados )usando a fun��o acima...vai ficar na tabela somente os produtos filtrados pelo c�digo...At� a� funciona...fiz este filtros para poder definir os produtos e servi�os...fiz assim


procedure T_FORM_OS_OR.calcular;
var
r,i,A,B: integer;
n,C,D : real;
begin
//  with BD_ORCA_ITENS_A do
//  begin
//    Close;
//    SQL.Clear;
//    SQL.Add(�SELECT * FROM ORCAMENTO_OFIC_ELET_ITENS�);
//    SQL.Add(�WHERE UPPER(GS_OOEI_PRO_SER) LIKE:GS_OOEI_PRO_SER�);
//    BD_ORCA_ITENS_A.Params[0].AsString :=  UpperCase(�Produto�) + ���;
//    BD_ORCA_ITENS_A.Open;
//  end;

//  with BD_ORCA_ITENS_B do
//  begin
//    Close;
//    SQL.Clear;
//    SQL.Add(�SELECT * FROM ORCAMENTO_OFIC_ELET_ITENS�);
//    SQL.Add(�WHERE UPPER(GS_OOEI_PRO_SER) LIKE:GS_OOEI_PRO_SER�);
//    BD_ORCA_ITENS_B.Params[0].AsString :=  UpperCase(�Servi�o�) + ���;
//    BD_ORCA_ITENS_B.Open;
//  end;

o campo GS_OOEI_PRO_SER recebe duas informa��o... Produto e Servi�o
m�s simplismente naum funciona.... este c�digo parece que ref�s os filtros a� separa os produtos e servi�o...m�s ignorando o primeiro filtro feito...ou seja se entrar va lista todos os �tens cadastrados da tabela e n�o os �tens filtrados....Ufaaaaaa que bom que o f�rum voltou a funcionar...hehehehe t+...vlw..

Gigatel

Curtir t�pico + 0

Responder