|
İyi günler.
Aşağıdaki fonksiyonla sql kayıt ekleniyor.
float alan için , . değişimi yapıyorum
aşağıdaki ikinci fonksiyon gibi yapabilirmiyim. (denemeler devam ediyor yanlış yolda isem peşinen doğru olana yönlenmek istiyorum)
okunurluluk ve farklı format settinglerde sorun olmaması için
// çalışan fonksiyon
procedure siparis_sarf_kayit(x_imno,x_kod,x_is_ack,x_birim,x_sat_ack,x_sip_id:ansistring;x_carpan,x_miktar,x_fiyat,x_tutar:Real );
var gecici_miktar,gecici_fiyat,gecici_tutar,gecici_carpan:string;
begin
gecici_miktar := StringReplace(floattostr(x_miktar),',','.',[rfReplaceAll]); // miktardaki , . yap
gecici_fiyat := StringReplace(floattostr(x_fiyat),',','.',[rfReplaceAll]); // miktardaki , . yap
gecici_tutar := StringReplace(floattostr(x_tutar),',','.',[rfReplaceAll]); // miktardaki , . yap
gecici_carpan := StringReplace(floattostr(x_carpan),',','.',[rfReplaceAll]); // miktardaki , . yap
data_form.sip_uret_oku('INSERT INTO Siparisuretim (SU_IM_NO,SU_kod,SU_ACIKLAMA,SU_BIRIM,SU_sat_ACIK,SU_SIP_ID,SU_MIKTAR,SU_FIYAT,SU_tutar) '+
'VALUES ('+ QuotedStr(x_imno)+','+QuotedStr(x_kod)+','+QuotedStr(x_is_ack)+','+QuotedStr(x_birim)+','+
QuotedStr(x_sat_ack)+','+QuotedStr(x_sip_id)+',' + QuotedStr(gecici_miktar) + ',' + QuotedStr(gecici_fiyat) +
',' + QuotedStr(gecici_tutar)+')',true);
data_form.sip_uret_sorgu.Close
end;
// denemeler yapılan fonksiyon
procedure siparis_sarf_kayit(x_imno,x_kod,x_is_ack,x_birim,x_sat_ack,x_sip_id:ansistring;x_carpan,x_miktar,x_fiyat,x_tutar:Real );
begin
data_form.sip_uret_oku('INSERT INTO Siparisuretim (SU_IM_NO,SU_kod,SU_ACIKLAMA,SU_BIRIM,SU_sat_ACIK,SU_SIP_ID,SU_CARPAN,SU_MIKTAR,SU_FIYAT,SU_tutar) '+
'VALUES (:x_imno,:x_kod,:x_is_ack,:x_birim,:x_sat_ack,:x_sip_id,:x_carpan,:x_miktar,:x_fiyat,:x_tutar)',true);
data_form.siparis_sorgu.Parameters.ParamValues['SU_IM_NO']:=x_imno;
data_form.siparis_sorgu.Parameters.ParamValues['SU_KOD']:=x_kod;
data_form.siparis_sorgu.Parameters.ParamValues['SU_ACIKLAMA']:=x_is_ack;
data_form.siparis_sorgu.Parameters.ParamValues['SU_BIRIM']:=x_birim;
data_form.siparis_sorgu.Parameters.ParamValues['SU_SAT_ACIK']:=x_sat_ack;
data_form.siparis_sorgu.Parameters.ParamValues['SU_SIP_ID']:=x_sip_id;
data_form.siparis_sorgu.Parameters.ParamValues['SU_CARPAN']:=x_carpan;
data_form.siparis_sorgu.Parameters.ParamValues['SU_MIKTAR']:=x_miktar;
data_form.siparis_sorgu.Parameters.ParamValues['SU_FIYAT']:=x_fiyat;
data_form.siparis_sorgu.Parameters.ParamValues['SU_TUTAR']:=x_tutar;
data_form.sip_uret_sorgu.Close
end;
|