Aşağıdaki kod ile kayıt ekliyor görünürde bir sorun yok fakat,
"A_PERSONEL_NET_UCRET" alanını kopyalarken eğer değer "100" gibi yuvarlak bir rakamsa sorun yok "100,50" olduğunda virgülden sonraki değeri yani "50" sonraki kayda atmaya çalışıyor virgül olduğu için nasıl yapabilirim ?
teşekkürler
Kod: Tümünü seç
qryKAYIT_COGALT_DB.Close;
qryKAYIT_COGALT_DB.SQL.Clear;
qryKAYIT_COGALT_DB.SQL.Add(' INSERT INTO PERSONEL_PROJE_PUANTAJ '
+' (PERSONEL_KIMLIK,PERSONEL_ADI_SOYADI,PERSONEL_TC_NO,MESLEK_KODU,PROJE_KIMLIK, '
+' PERSONEL_NET_MAAS, '
+' PERSONEL_BRUT_MAAS, '
+' HAFTA_ICI_MESAI_ORAN, '
+' HAFTASONU_MESAI_CMRT_ORAN, '
+' HAFTASONU_MESAI_PAZAR_ORAN, '
+' BAYRAM_MESAI_ORAN, '
+' RESMI_TATIL_MESAI_ORAN, '
+' DONEM_YIL, '
+' DONEM_AY, '
+' ACIKLAMA, '
+' CALISILAN_FIRMA, '
+' EKLEYEN )'
+' SELECT PERSONEL_KIMLIK, ADI+'+#39+' '+#39+'+SOYADI, TC_NO, MESLEKI_KODU, GOREV_YERI,'
+ qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('A_PERSONEL_NET_UCRET').Text +','
+ qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('A_PERSONEL_BRUT_UCRET').Text +','
+ qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('HAFTA_ICI_MESAI').Text +','
+ qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('HAFTASONU_MESAI_CMRT').Text +','
+ qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('HAFTASONU_MESAI_PAZAR').Text +','
+ qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('BAYRAM_MESAI').Text +','
+ qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('RESMI_TATIL_MESAI').Text +','
+#39+ cbbPUANTAJ_YIL.Text +''+#39+','
+#39+ cbbPUANTAJ_AY.Text +''+#39+','
+#39+ editACIKLAMA.Text +''+#39+','
+#39+ KULLANICI_GIRIS.qryCALISILAN_FIRMA_DB.FieldByName('KIMLIK').Text +''+#39+', '
+#39+ KULLANICI_GIRIS.qryKULLANICI_DB.FieldByName('GORUNEN_AD').Text +''+#39+''
+' FROM PERSONEL_BILGILERI '
+' WHERE TC_NO = '+#39+qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('TC_NO').Text+#39+''
+' AND CALISILAN_FIRMA_KIMLIK = '+#39+KULLANICI_GIRIS.qryCALISILAN_FIRMA_DB.fieldbyname('KIMLIK').Text+#39+'');
mmo1.Lines.Add(qryKAYIT_COGALT_DB.SQL.Text);
qryKAYIT_COGALT_DB.ExecSQL;
qryKAYIT_COGALT_DB.close;