O campo não é obrigatório e é via dbExpress.
Insert into clientes '+
'(idcliente,fantasia,
razao,cnpj_cpf,rg_ie,tipo_cliente,tipo_logradouro, '+
'endereco, numero, complemento, cep, bairro, cidade, uf, telefone, '+
'celular, fax, email, nome_socio,dtnascimento_socio ,cpf_socio,
rg_socio,'+
'nome_socio2,dtnascimento_socio2,cpf_socio2, rg_socio2,'+
' data_nascimento,login, data_cpu, contato,contratosocial_entregue,'+
'cnpj_entregue,idramo,observacao,idvendedor,site,'+
'nome_comprador1,nascimento_comprador1,cargo_comprador1,email_comprador1,'+
'nome_comprador2,nascimento_comprador2,cargo_comprador2,email_comprador2,'+
'data_cadastro,situacao_cliente, credito) '+
'values (:xidcli,:xfanta, :xrazao, :xcnpj, :xrgie, :xtipocli,
:xtipolog, '+
':xend, :xnum, :xcompl, :xcep, :xbairro, :xcidade, :xuf, :xtel,'+
':xcel, :xfax, :xemail, :xnmsocio1,:xdtsocio1 ,:xcpfsocio1,
:xrgsocio1,'+
':xnmsocio2,:xdtsocio2,:xcpfsocio2,:xrgsocio2,'+
':xdtnasc,:xlogin,:xdtcpu,
:xcontact,:xcontrato,:xcnpjentreg,:xidramo,:xobs,:xidvend,:xsite,'+
':xnmcompra1,:xnasccompra1,:xcargo1,:xemailcomprador1,'+
':xnmcompra2,:xnasccompra2,:xcargo2,:xemailcomprador2,'+
':xdtcad,:xsitcli,:xcred '+
')';
transacao.TransactionID :=1;
transacao.IsolationLevel:=xilReadCommitted;
dmpromo.SQLCpromo.StartTransaction(transacao);
with dmpromo.SQLDataSet_promo do
begin // with
Close;
CommandType:=ctQuery;
CommandText:='Insert into clientes '+
'(idcliente,fantasia,
razao,cnpj_cpf,rg_ie,tipo_cliente,tipo_logradouro, '+
'endereco, numero, complemento, cep, bairro, cidade, uf, telefone,
'+
'celular, fax, email, nome_socio,dtnascimento_socio ,cpf_socio,
rg_socio,'+
'nome_socio2,dtnascimento_socio2,cpf_socio2, rg_socio2,'+
' data_nascimento,login, data_cpu,
contato,contratosocial_entregue,'+
'cnpj_entregue,idramo,observacao,idvendedor,site,'+
'nome_comprador1,nascimento_comprador1,cargo_comprador1,email_comprador1,'+
'nome_comprador2,nascimento_comprador2,cargo_comprador2,email_comprador2,'+
'data_cadastro,situacao_cliente, credito) '+
'values (:xidcli,:xfanta, :xrazao, :xcnpj, :xrgie, :xtipocli,
:xtipolog, '+
':xend, :xnum, :xcompl, :xcep, :xbairro, :xcidade, :xuf, :xtel,'+
':xcel, :xfax, :xemail, :xnmsocio1,:xdtsocio1 ,:xcpfsocio1,
:xrgsocio1,'+
':xnmsocio2,:xdtsocio2,:xcpfsocio2,:xrgsocio2,'+
':xdtnasc,:xlogin,:xdtcpu,
:xcontact,:xcontrato,:xcnpjentreg,:xidramo,:xobs,:xidvend,:xsite,'+
':xnmcompra1,:xnasccompra1,:xcargo1,:xemailcomprador1,'+
':xnmcompra2,:xnasccompra2,:xcargo2,:xemailcomprador2,'+
':xdtcad,:xsitcli,:xcred '+
')';
ParamByName('xidcli').AsInteger :=idcli;
ParamByName('xfanta').AsString :=Edit_fantasia.Text;
ParamByName('xrazao').AsString :=Edit_nomecliente.Text;
ParamByName('xcnpj').AsString :=ffuncoes.numeros(xcpf_cnpj);
Parambyname('xrgie').AsString :=Edit_rg_ie.Text;
ParamByName('xtipocli').AsString:=tipocli;
ParamByName('xtipolog').AsString:=CbBox_lograd.Text;
ParamByName('xend').AsString:=Edit_endereco.Text;
ParamByName('xnum').AsString:=Edit_numero.Text;
ParamByName('xcompl').AsString:=Edit_compl.Text;
ParamByName('xcep').AsString:=Edit_cep.Text;
ParamByName('xbairro').AsString:=Edit_bairro.Text;
ParamByName('xcidade').AsString:=edit_cidade.Text;
ParamByName('xuf').AsString:=ComboBox_uf.Text;
ParamByName('xtel').AsString:=Memo_tels.Text;// Edit_tels.Text;
ParamByName('xcel').AsString:=ed_cel.Text;
ParamByName('xfax').AsString:=Edit_fax.Text;
ParamByName('xemail').AsString:=Edit_email.Text;
ParamByName('xcpfsocio1').AsString:=ffuncoes.numeros(ed_cpfsocio.Text);
ParamByName('xrgsocio1').AsString:=ed_rgsocio.Text;
ParamByName('xcpfsocio2').AsString:=ffuncoes.numeros(ed_cpfsocio2.Text);
ParamByName('xrgsocio2').AsString:=ed_rgsocio2.Text;
if not ffuncoes.validadata(MaskEdit_dtnasccliente.Text) then
ParamByName( 'xdtnasc' ).Clear
else ParamByName('xdtnasc').AsDate:=
strtodate(MaskEdit_dtnasccliente.text);
ParamByName('xlogin').AsString:=login_user;
ParamByName('xdtcpu').AsDate:=date;
ParamByName('xcontact').AsString:=ed_contato.Text;
if ChkBox_contrato.Checked then ParamByName('xcontrato').AsString:='1'
else
ParamByName('xcontrato').AsString:='0';
if ChkBox_cnpj.Checked then ParamByName('xcnpjentreg').AsString:='1'
else
ParamByName('xcnpjentreg').AsString:='0';
if ffuncoes.ValidaInt(edit_ramo.Text) then
Parambyname('xidramo').AsInteger:=Strtoint(edit_ramo.Text)
else Parambyname('xidramo').AsInteger:=0;
ParamByName('xobs').AsString:=memo_obs.Text; // edit_obs.Text;
if ffuncoes.ValidaInt(ed_numvend.Text) then
ParamByName('xidvend').AsInteger:=strtoint(ed_numvend.Text)
else ParamByName('xidvend').AsInteger:=0;
ParamByName('xsite').AsString:=ed_site.Text;
if novocli then
ParamByName('xdtcad').AsDate:=Now;
end; // with
dmpromo.SQLDataSet_promo.ExecSQL;
dmpromo.SQLCpromo.Commit(transacao);
Marlon Tiedt <[EMAIL PROTECTED]> escreveu: Como
você está acessando o BD?
Via dbExpress?
O campo é obrigatório?
Passo o código inteiro para a gente dar uma olhada.
[]s,
Marlon
----- Original Message -----
From: Ricardo Cabral
To: [email protected]
Sent: Monday, January 07, 2008 11:54 AM
Subject: RE: [delphi-br] Data vazia
Bom Dia !
Quando coloco ParamByName('xdtnasc').Value := null ou
ParamByName('xdtnasc').clear, dá uma mensagem de rro: "No value for parameter
'XDTNASC'"
Jiuney Pachevitch <[EMAIL PROTECTED]> escreveu:
Bom dia! Qual a msg de erro que dá?
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Mon, 7 Jan 2008 10:39:53
-0300Subject: Re: [delphi-br] Data vazia
Gerson,Já havia tentado isso também. O delphi até compilas, mas dá erro na
hora da execução.Valeu!Gerson Machado <[EMAIL PROTECTED]> escreveu: Veja
....ParamByName( 'xdtnasc' ).Clear;GersonRicardo Cabral <[EMAIL PROTECTED]>
escreveu:Marlon e Davi,Agradeço as dicas de ambos, mas não funcionou. O delphi
até compila, mas dá erro em tempo de execução.[]´s RicardoMarlon Tiedt <[EMAIL
PROTECTED]> escreveu: Ou você pode fazer assim:ParamByName('xdtnasc').Value :=
null;Funciona com qualquer tipo de campo.FalouMarlon----- Original Message
----- From: Davi Eduardo Borges Wall To: [email protected] Sent:
Monday, January 07, 2008 10:35 AMSubject: RES: [delphi-br] Data
vaziaParamByName('xdtnasc').DataType :=
FtDateTime;ParamByName('xdtnasc').Clear;De: [email protected]
[mailto:[EMAIL PROTECTED] Em nome de Ricardo CabralEnviada em: segunda-feira, 7
de janeiro de 2008 10:30Para: [EMAIL PROTECTED]: [delphi-br]
Data vaziaCaros colegas,Uso o delphi 7 com firebird.Tenho um problema na
hora de gravar em um campo data. No formulário de cadastro tem um edit para
data de nascimento. O problema é gravar nesse campo quando o usuário deixa
vazio.já tentei "ParamByName('xdtnasc').AsDate:=null", mas mesmo assim dá
erro!Alguém tem uma dica ?Desde de já agradeço.Abraços,Ricardo
Cabral---------------------------------Abra sua conta no Yahoo! Mail, o único
sem limite de espaço para armazenamento! [As partes desta mensagem que não
continham texto foram removidas][As partes desta mensagem que não continham
texto foram
removidas]----------------------------------------------------------No virus
found in this incoming message.Checked by AVG Free Edition. Version: 7.5.516 /
Virus Database: 269.17.13/1213 - Release Date: 7/1/2008 09:14[As partes desta
mensagem que não continham texto foram
removidas]---------------------------------Abra sua conta no Yahoo! Mail, o
único sem limite de espaço para
armazenamento! [As partes desta mensagem que não continham texto foram
removidas]---------------------------------Abra sua conta no Yahoo! Mail, o
único sem limite de espaço para armazenamento! [As partes desta mensagem que
não continham texto foram removidas]Abraços,Ricardo
Cabral---------------------------------Abra sua conta no Yahoo! Mail, o único
sem limite de espaço para armazenamento! [As partes desta mensagem que não
continham texto foram removidas]
__________________________________________________________
Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live
Search Maps!
http://www.livemaps.com.br/index.aspx?tr=true
[As partes desta mensagem que não continham texto foram removidas]
Abraços,
Ricardo Cabral
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
----------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.516 / Virus Database: 269.17.13/1213 - Release Date: 7/1/2008
09:14
[As partes desta mensagem que não continham texto foram removidas]
Abraços,
Ricardo Cabral
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
