Re: [delphi-br] Tipo de String no DbExpress

Thu, 08 Nov 2007 03:12:47 -0800 

ahahahahaha

o problema e esse meu amigo c ta com um campo char(2)

entao c tem que filtrar com 2 campos o p + espaço

serie = 'P ' 

nao serie = 'P'

ou mude pra char (1) ou varchar(2)

resolvido!!!!!! 

  ----- Original Message ----- 
  From: Doretto 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 07, 2007 6:13 PM
  Subject: Re: [delphi-br] Tipo de String no DbExpress


  Boa tarde !!!

  O problema é tão cabeludo que eu gravo pelo delphi7 c/ dbExpress e um campo 
SERIE Char(2), e vou no SQL ANALIZER para ver se a informação foi gravada e 
através do select não consigo ver..

  Select * from NF
  Where Serie='P' 

  simplesmente não aparece nada...

  para gravar pelo Delphi7 eu uso assim:

  Qinc: TSQLQuery;

  With Qinc do
  Begin
  Close;
  ParamByName('Nrodoc').AsInteger:=Tnro;
  ParamByName('Serie').AsString:='P'; **** Aqui esta o problema
  ParamByName('VlrTotal').AsFloat:=ConsRec.CprodPrcItem.ASFloat;
  ParamByName('VlrMerc').AsFloat:=ConsRec.CprodPrcItem.ASFloat;
  ParamByName('VlrDesc').AsFloat:=0;
  ParamByName('Vocher').AsFloat:=0;
  ParamByName('CodCli').AsInteger:=Pega_Mem(C1,'Consumidor');
  ParamByName('CdVend').AsInteger:=Pega_Mem(C1,'VendedorLoja');
  ParamByName('CondPag').AsInteger:=Pega_Mem(C1,'CondVista');
  ParamByName('NatOper').AsInteger:=Pega_Mem(C1,'NatOper');
  ParamByName('DataRef').AsFloat:=Date;
  ParamByName('Saida').AsFloat:=Date;
  ParamByName('SeqCaixa').AsInteger:=QfechaSequencia.AsInteger;
  ParamByName('TpDoc').AsInteger:=22;
  ParamByName('Pedido').AsInteger:=0;
  ParamByName('Usuario').AsInteger:=Wusuario;
  ParamByName('Transp').AsInteger:=0;
  ParamByName('EspecieNf').AsString:='';
  ParamByName('MarcaNf').AsString:='';
  ParamByName('Numero').AsString:='';
  ParamByName('Qtde').AsFloat:=0;
  ParamByName('Pdesc').AsFloat:=0;
  ParamByName('PesoBruto').AsFloat:=0;
  ParamByName('Pesoliq').AsFloat:=0;
  ParamByName('Obs1').AsString:='';
  ParamByName('Obs2').AsString:='';
  ParamByName('Obs3').AsString:='';
  ParamByName('Obs4').AsString:='';
  ParamByName('Obs5').AsString:='';
  ParambyName('Empresa').AsInteger:=Wempresa;
  ExecSql;
  End;

  ----- Original Message ----- 
  From: MiNuTo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 07, 2007 10:30 AM
  Subject: Re: [delphi-br] Tipo de String no DbExpress

  Serie='P' 

  num é p minusculo ou P maiusculo ou falta quotedstr() v aeee

  c ta usando parametros ou joga direto na sql?

  posta ae o codigo da sql e do delphi 

  ... mas nao escreve nao , copia e cola ...

  ----- Original Message ----- 
  From: dorettodor 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, November 07, 2007 8:13 AM
  Subject: [delphi-br] Tipo de String no DbExpress

  Bom dia !!!

  Acontece o seguinte..

  Tenho uma banco Mssql 2000 e gravo informacoes nele pelo delphi5 
  (BDE) e Delphi7 (DbExpress), se eu uso um campo chave String (Ex 
  Serie Char(2)) fazendo um select usando este campo nãoo aparece esta 
  informacao

  Ex:

  Gravado pelo Dephi5 BDE

  Select Nrodoc From NF
  Where Empresa=1 and Nrodoc=200 and Serie='P'

  assim aparece

  fazendo o mesmo select nos dados gravados pelo delphi7 DbExpress nao 
  aparece.
  Ps: Se eu tirar a campo SERIE do select ai aparece a informação...

  o que pode ser.. 

  Abraço

  Doretto.

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

  __________ Informação do NOD32 IMON 2642 (20071106) __________

  Esta mensagem foi verificada pelo NOD32 sistema antivírus
  http://www.eset.com.br

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



   

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

Responder a