void DMR_DEMIRBAS_KARTI::UPDATE_RECORD ( int record_id )
{
SQL_QUERY update_query( DB );
SQL_QUERY query(DB);
int personel_id = PRS_GET_CARI_PERSONEL_ID( m_cari_hesap_id );
query.PREPARE_SELECT("dmr_demirbaslar" , "fatura_id,yeni_brkms_amortisman_tutari" , "demirbas_id = :demirbas_id");
query.SET_VALUE(":demirbas_id" , record_id);
int old_fatura_id = 0;
double old_birikmis_amortisman_tutari = 0;
if ( query.SELECT() NE 0 ) {
query.NEXT();
old_fatura_id = query.VALUE(0).toInt();
old_birikmis_amortisman_tutari = query.VALUE(1).toDouble();
}
if ( old_birikmis_amortisman_tutari > 0 ) {
DMR_AMORTISMAN_TUTARINI_AZALT(record_id , 0,old_birikmis_amortisman_tutari);
}
if ( old_fatura_id NE m_fatura_id ) {
if ( old_fatura_id > 0 ) {
DMR_ENTEGRASYON_FISI_OLUSTUR(old_fatura_id , 0);
}
}
update_query.PREPARE_UPDATE ( "dmr_demirbaslar","demirbas_id","demirbas_kodu , demirbas_adi ,"
"muh_hesap_id ,alis_tarihi,alis_bedeli ,"
"uretici_firma ,marka ,model ,seri_numarasi ,"
"garanti_suresi ,amortisman_orani ,"
"amortisman_suresi ,yeniden_degerleme_yapilacak_mi ,"
"kist_amortisman ,demirbasin_degeri,"
"demirbasin_yeni_degeri ,amortisman_yontemi,grup_id,"
"personel_id,fatura_id ,amor_gider_hesap_id ,"
"bir_amor_hesap_id , sube_id , dmr_satis_kar_hesap_id,"
"yeni_brkms_amortisman_tutari,dmr_satis_zarar_hesap_id",
"demirbas_id = :demirbas_id" );
update_query.SET_VALUE ( ":demirbas_kodu" , m_ui->lineedit_demirbas_kodu->text() );
update_query.SET_VALUE ( ":demirbas_adi" , m_ui->lineedit_demirbas_adi->text() );
update_query.SET_VALUE ( ":muh_hesap_id" , m_muh_hesap_id);
update_query.SET_VALUE ( ":alis_tarihi" , m_ui->adakDate_alis_tarihi->DATE());
update_query.SET_VALUE ( ":alis_bedeli" , m_ui->commaEdit_alis_fiyati->GET_DOUBLE());
update_query.SET_VALUE ( ":uretici_firma" , m_ui->lineEdit_uretici_firma->text());
update_query.SET_VALUE ( ":marka" , m_ui->lineEdit_marka->text());
update_query.SET_VALUE ( ":model" , m_ui->lineEdit_model->text());
update_query.SET_VALUE ( ":seri_numarasi" , m_ui->lineEdit_seri_no->text());
update_query.SET_VALUE ( ":garanti_suresi" , m_ui->lineedit_garanti_suresi->text().toInt());
update_query.SET_VALUE ( ":amortisman_orani" , m_ui->commaEdit_amortisman_orani->GET_DOUBLE());
update_query.SET_VALUE ( ":amortisman_suresi" , m_ui->lineedit_amortisman_suresi->text().toInt());
update_query.SET_VALUE ( ":yeniden_degerleme_yapilacak_mi" , QVariant(m_ui->checkBox_yeniden_degerleme->isChecked()).toInt());
update_query.SET_VALUE ( ":kist_amortisman" , QVariant(m_ui->checkBox_kist_amortisman->isChecked()).toInt());
update_query.SET_VALUE ( ":demirbasin_degeri" , m_ui->commaEdit_alis_fiyati->GET_DOUBLE());
update_query.SET_VALUE ( ":demirbasin_yeni_degeri" , m_ui->commaEdit_alis_fiyati->GET_DOUBLE());
update_query.SET_VALUE ( ":amortisman_yontemi" , DMR_GET_AMORTISMAN_SEKLI_ENUM ( m_ui->comboBox_amortisman_yontemi->currentText()));
update_query.SET_VALUE ( ":grup_id" , m_grup_id);
update_query.SET_VALUE ( ":personel_id" , personel_id);
update_query.SET_VALUE ( ":fatura_id" , m_fatura_id);
update_query.SET_VALUE ( ":amor_gider_hesap_id", m_amor_gider_hesap_id);
update_query.SET_VALUE ( ":bir_amor_hesap_id" , m_bir_amor_hesap_id);
update_query.SET_VALUE ( ":sube_id" , m_sube_id);
update_query.SET_VALUE ( ":dmr_satis_kar_hesap_id" , m_dmr_satis_kar_hesap_id);
update_query.SET_VALUE ( ":yeni_brkms_amortisman_tutari" , m_ui->commaEdit_birikmis_amortisman->GET_DOUBLE());
update_query.SET_VALUE ( ":dmr_satis_zarar_hesap_id" , m_dmr_satis_zarar_hesap_id);;
update_query.SET_VALUE ( ":demirbas_id" , record_id );
update_query.UPDATE();
DMR_AMORTISMAN_TUTARINI_ARTTIR(record_id , 0 , m_ui->commaEdit_birikmis_amortisman->GET_DOUBLE());
GRP_KAYDI_GRUPLARA_EKLE(E9_PROGRAMI,DEMIRBAS_GRUP_MODULU, record_id , &m_rpr_isl_grubu_idler);
if ( m_grup_id > 0 ) {
QList<int> grup_id_list ;
grup_id_list << m_grup_id;
GRP_KAYDI_GRUPLARA_EKLE(E9_PROGRAMI , DEMIRBAS_MODULU , record_id , &grup_id_list);
}
QString log_detaylari = QObject::tr ( "Demirbaş Kodu / Adı : " );
log_detaylari.append ( m_ui->lineedit_demirbas_kodu->text() + " " + m_ui->lineedit_demirbas_adi->text());
E9_LOG_KAYDI_EKLE ( DEMIRBAS_MODULU , LOG_DMR_DEMIRBASLAR , LOG_ISLEM_UPDATE , log_detaylari );
if ( m_fatura_id > 0 ) {
DMR_ENTEGRASYON_FISI_OLUSTUR(m_fatura_id , record_id);
}
}
void DMR_FIS_SATIRI_GUNCELLE(DMR_FIS_STRUCT *P_FIS, DMR_FIS_SATIRI_STRUCT *P_FIS_SATIRI, int p_fis_satiri_id)
{
SQL_QUERY query(DB);
query.PREPARE_SELECT("dmr_fis_satirlari,dmr_fisler" , "demirbas_id,satir_tutari,toplam_tutar,"
"toplam_birikmis_amor_tutari,birikmis_amortisman_tutari,fis_tarihi",
"fis_satiri_id = :fis_satiri_id");
query.SET_VALUE(":fis_satiri_id" , p_fis_satiri_id);
if ( query.SELECT() EQ 0 ) {
return;
}
query.NEXT();
int demirbas_id = query.VALUE(0).toInt();
double satir_tutari = query.VALUE(1).toDouble();
double toplam_tutar = query.VALUE(2).toDouble();
double toplam_birikmis_amor_tutari = query.VALUE(3).toDouble();
double birikmis_amortisman_tutari = query.VALUE(4).toDouble();
QDate fis_tarihi = QDate::fromString(query.VALUE(5).toString() , "yyyy.MM.dd");
if ( demirbas_id NE P_FIS_SATIRI->demirbas_id ) {
//Eski demirbas bilgileri guncellenecek
query.PREPARE_SELECT("dmr_demirbaslar" , "yillik_ayrilan_amor_yuzdesi , toplamda_ayrilan_amor_yuzdesi,"
"amortisman_orani , demirbasin_yeni_degeri ,"
"yeni_brkms_amortisman_tutari ,yeniden_degerleme_yapildi,"
"amortisman_ayrilabilir_mi",
"demirbas_id = :demirbas_id");
query.SET_VALUE(":demirbas_id" , demirbas_id);
if ( query.SELECT() EQ 0 ) {
return;
}
query.NEXT();
double yillik_ayrilan_amor_yuzdesi = query.VALUE(0).toDouble();
double toplamda_ayrilan_amor_yuzdesi = query.VALUE(1).toDouble();
double amortisman_orani = query.VALUE(2).toDouble();
double demirbasin_yeni_degeri = query.VALUE(3).toDouble();
double yeni_brkms_amortisman_tutari = query.VALUE(4).toDouble();
int yeniden_degerleme_yapildi = query.VALUE(5).toInt();
int amortisman_ayrilabilir_mi = query.VALUE(6).toInt();
if ( P_FIS->fis_turu EQ YENIDEN_DEGERLEME_FISI ) {
demirbasin_yeni_degeri = 0;
yeni_brkms_amortisman_tutari = 0;
yeniden_degerleme_yapildi = 0;
}
else {
yillik_ayrilan_amor_yuzdesi -= P_FIS->dusulecek_amor_yuzdesi;
toplamda_ayrilan_amor_yuzdesi -= amortisman_orani;
if ( toplamda_ayrilan_amor_yuzdesi < 100 ) {
amortisman_ayrilabilir_mi = 1;
}
}
query.PREPARE_UPDATE("dmr_demirbaslar" , "demirbas_id" , "yillik_ayrilan_amor_yuzdesi,"
"toplamda_ayrilan_amor_yuzdesi , amortisman_ayrilabilir_mi,"
"demirbasin_yeni_degeri,"
"yeni_brkms_amortisman_tutari , yeniden_degerleme_yapildi",
"demirbas_id = :demirbas_id");
query.SET_VALUE(":yillik_ayrilan_amor_yuzdesi" , yillik_ayrilan_amor_yuzdesi);
query.SET_VALUE(":toplamda_ayrilan_amor_yuzdesi" , toplamda_ayrilan_amor_yuzdesi);
query.SET_VALUE(":amortisman_ayrilabilir_mi" , amortisman_ayrilabilir_mi);
query.SET_VALUE(":demirbasin_yeni_degeri" , demirbasin_yeni_degeri);
query.SET_VALUE(":yeni_brkms_amortisman_tutari" , yeni_brkms_amortisman_tutari);
query.SET_VALUE(":yeniden_degerleme_yapildi" , yeniden_degerleme_yapildi);
query.SET_VALUE(":demirbas_id" , demirbas_id);
query.UPDATE();
int gun_no = MALI_YIL_ARRAY_INDIS(fis_tarihi);
if ( P_FIS->fis_turu EQ AMORTISMAN_AYIRMA_FISI ) {
DMR_AMORTISMAN_TUTARINI_AZALT ( demirbas_id,gun_no,satir_tutari );
}
toplam_tutar -= satir_tutari;
toplam_birikmis_amor_tutari -= birikmis_amortisman_tutari;
//Eski demirbas bilgileri guncellendi
query.PREPARE_SELECT("dmr_demirbaslar" , "yillik_ayrilan_amor_yuzdesi , toplamda_ayrilan_amor_yuzdesi,"
"amortisman_orani , amortisman_ayrilabilir_mi ,"
"demirbasin_yeni_degeri,"
"yeniden_degerleme_yapildi , yeni_brkms_amortisman_tutari",
"demirbas_id = :demirbas_id");
query.SET_VALUE(":demirbas_id" , P_FIS_SATIRI->demirbas_id);
if ( query.SELECT() EQ 0 ) {
return;
}
query.NEXT();
yillik_ayrilan_amor_yuzdesi = query.VALUE(0).toDouble();
toplamda_ayrilan_amor_yuzdesi = query.VALUE(1).toDouble();
amortisman_orani = query.VALUE(2).toDouble();
amortisman_ayrilabilir_mi = query.VALUE(3).toInt();
demirbasin_yeni_degeri = query.VALUE(4).toDouble();
yeniden_degerleme_yapildi = query.VALUE(5).toInt();
yeni_brkms_amortisman_tutari = query.VALUE(6).toDouble();
if ( P_FIS->fis_turu EQ AMORTISMAN_AYIRMA_FISI ) {
yillik_ayrilan_amor_yuzdesi += P_FIS->dusulecek_amor_yuzdesi;
if ( yillik_ayrilan_amor_yuzdesi EQ 100 ) {
toplamda_ayrilan_amor_yuzdesi += amortisman_orani;
if ( toplamda_ayrilan_amor_yuzdesi EQ 100 ) {
amortisman_ayrilabilir_mi = 0;
}
}
DMR_AMORTISMAN_TUTARINI_ARTTIR ( P_FIS_SATIRI->demirbas_id,gun_no,P_FIS_SATIRI->satir_tutari);
}
else {
demirbasin_yeni_degeri = P_FIS_SATIRI->satir_tutari;
yeniden_degerleme_yapildi = 1;
yeni_brkms_amortisman_tutari = P_FIS_SATIRI->yeni_birikmis_amor_tutari;
}
query.PREPARE_UPDATE("dmr_demirbaslar" , "demirbas_id" , "yillik_ayrilan_amor_yuzdesi,"
"toplamda_ayrilan_amor_yuzdesi , amortisman_ayrilabilir_mi,"
"demirbasin_yeni_degeri,"
"yeniden_degerleme_yapildi , yeni_brkms_amortisman_tutari",
"demirbas_id = :demirbas_id");
query.SET_VALUE(":yillik_ayrilan_amor_yuzdesi" , yillik_ayrilan_amor_yuzdesi);
query.SET_VALUE(":toplamda_ayrilan_amor_yuzdesi" , toplamda_ayrilan_amor_yuzdesi);
query.SET_VALUE(":amortisman_ayrilabilir_mi" , amortisman_ayrilabilir_mi);
query.SET_VALUE(":demirbasin_yeni_degeri" , demirbasin_yeni_degeri);
query.SET_VALUE(":yeniden_degerleme_yapildi" , yeniden_degerleme_yapildi);
query.SET_VALUE(":yeni_brkms_amortisman_tutari" , yeni_brkms_amortisman_tutari);
query.SET_VALUE(":demirbas_id" , P_FIS_SATIRI->demirbas_id );
query.UPDATE();
toplam_tutar += P_FIS_SATIRI->satir_tutari;
toplam_birikmis_amor_tutari += P_FIS_SATIRI->birikmis_amor_tutari;
}
query.PREPARE_UPDATE("dmr_fis_satirlari" , "fis_satiri_id" , "demirbas_id , aciklama,"
"satir_tutari , birikmis_amortisman_tutari ",
"fis_satiri_id = :fis_satiri_id");
query.SET_VALUE(":demirbas_id" , P_FIS_SATIRI->demirbas_id);
query.SET_VALUE(":aciklama" , P_FIS_SATIRI->aciklama );
query.SET_VALUE(":satir_tutari" , P_FIS_SATIRI->satir_tutari);
query.SET_VALUE(":birikmis_amortisman_tutari" , P_FIS_SATIRI->birikmis_amor_tutari);
query.SET_VALUE(":fis_satiri_id" , p_fis_satiri_id);
query.UPDATE();
P_FIS->toplam_tutar = toplam_tutar;
P_FIS->top_birikmis_amor_tutari = toplam_birikmis_amor_tutari;
query.PREPARE_UPDATE("dmr_fisler" , "fis_id" , "toplam_tutar , toplam_birikmis_amor_tutari" ,
"fis_id = :fis_id");
query.SET_VALUE(":toplam_tutar" , P_FIS->toplam_tutar );
query.SET_VALUE(":toplam_birikmis_amor_tutari" , P_FIS->top_birikmis_amor_tutari);
query.SET_VALUE(":fis_id" , P_FIS_SATIRI->fis_id );
query.UPDATE();
if ( P_FIS_SATIRI->base_record_id EQ 0 ) {
P_FIS_SATIRI->base_record_id = p_fis_satiri_id;
}
if ( P_FIS->base_fis_id EQ 0 ) {
P_FIS->base_fis_id = P_FIS_SATIRI->fis_id;
}
//ISLETME ENTEGRASYONU
int isl_fis_id = ISL_GET_ENT_FIS_ID(P_FIS->modul_id , P_FIS->program_id , P_FIS->base_fis_id);
if ( isl_fis_id > 0 ) {
ISL_FIS_STRUCT * ISL_FISI = new ISL_FIS_STRUCT;
ISL_CLEAR_FIS_STRUCT(ISL_FISI);
ISL_FIS_BILGILERINI_OKU(ISL_FISI , isl_fis_id);
ISL_FIS_SATIRI_STRUCT * ISL_FIS_SATIRI = new ISL_FIS_SATIRI_STRUCT;
ISL_CLEAR_FIS_SATIRI_STRUCT(ISL_FIS_SATIRI);
int isl_satir_id = ISL_GET_ENT_FIS_SATIRI_ID(P_FIS->modul_id , P_FIS->program_id , P_FIS_SATIRI->base_record_id);
ISL_FIS_SATIRI_BILGILERINI_OKU(ISL_FIS_SATIRI ,isl_satir_id);
ISL_FIS_SATIRI->aciklama = P_FIS_SATIRI->aciklama;
ISL_FIS_SATIRI->satir_kdv_dahil_tutar = P_FIS_SATIRI->satir_tutari;
ISL_FIS_SATIRI->satir_kdv_haric_tutar = P_FIS_SATIRI->satir_tutari;
if ( isl_satir_id > 0 ) {
ISL_FIS_SATIRI_GUNCELLE(ISL_FISI , ISL_FIS_SATIRI , isl_satir_id);
}
delete ISL_FISI;
delete ISL_FIS_SATIRI;
}
//MUHASEBE ENTEGRASYONU
MUH_FIS_STRUCT * MUHASEBE_FISI = new MUH_FIS_STRUCT;
MUH_CLEAR_FIS_STRUCT(MUHASEBE_FISI);
MUH_FIS_BILGILERINI_OKU(MUHASEBE_FISI , P_FIS->muh_fis_id);
MUH_FIS_SATIRI_STRUCT * MUH_FIS_SATIRI = new MUH_FIS_SATIRI_STRUCT;
QStringList MUH_ROW_ID_LIST = MUH_GET_ENT_ROW_ID_LIST(P_FIS->program_id,P_FIS->modul_id ,
P_FIS_SATIRI->base_record_id);
for ( int i = 0 ; i < MUH_ROW_ID_LIST.size() ; i++ ) {
int muh_fis_satiri_id = QVariant(MUH_ROW_ID_LIST.at(i)).toInt();
MUH_CLEAR_FIS_SATIRI_STRUCT(MUH_FIS_SATIRI);
MUH_FIS_SATIRINI_OKU(MUH_FIS_SATIRI , muh_fis_satiri_id );
MUH_FIS_SATIRI->aciklama = P_FIS_SATIRI->aciklama;
if ( MUH_FIS_SATIRI->borc_tutari > 0 ) {
MUH_FIS_SATIRI->borc_tutari = P_FIS_SATIRI->satir_tutari;
MUH_FIS_SATIRI->alacak_tutari = 0;
}
else {
MUH_FIS_SATIRI->borc_tutari = 0 ;
MUH_FIS_SATIRI->alacak_tutari = P_FIS_SATIRI->satir_tutari;
}
MUH_FIS_SATIRINI_GUNCELLE ( MUHASEBE_FISI, MUH_FIS_SATIRI, muh_fis_satiri_id );
}
delete MUHASEBE_FISI;
delete MUH_FIS_SATIRI;
}
void DMR_FIS_SATIRI_SIL(DMR_FIS_STRUCT *P_FIS, int p_fis_satiri_id)
{
SQL_QUERY query ( DB );
query.PREPARE_SELECT("dmr_fis_satirlari , dmr_fisler" , "dmr_fisler.program_id,"
"dmr_fisler.modul_id,base_fis_id ,fis_tarihi , "
"demirbas_id , toplam_tutar , satir_tutari , "
"dmr_fis_satirlari.fis_id , toplam_birikmis_amor_tutari,"
"birikmis_amortisman_tutari,base_record_id",
"dmr_fisler.fis_id = dmr_fis_satirlari.fis_id AND "
"fis_satiri_id = :fis_satiri_id");
query.SET_VALUE(":fis_satiri_id" , p_fis_satiri_id);
if ( query.SELECT() EQ 0 ) {
return;
}
query.NEXT();
int program_id = query.VALUE(0).toInt();
int modul_id = query.VALUE(1).toInt();
int base_fis_id = query.VALUE(2).toInt();
if ( P_FIS->program_id NE program_id OR P_FIS->modul_id NE modul_id OR
P_FIS->base_fis_id NE base_fis_id ) {
return;
}
QDate fis_tarihi = QDate::fromString(query.VALUE(3).toString() , "yyyy.MM.dd");
int demirbas_id = query.VALUE(4).toInt();
double toplam_tutar = query.VALUE(5).toDouble();
double satir_tutari = query.VALUE(6).toDouble();
int fis_id = query.VALUE(7).toInt();
double toplam_birikmis_amor_tutari = query.VALUE(8).toDouble();
double birikmis_amor_tutari = query.VALUE(9).toDouble();
int base_record_id = query.VALUE(10).toInt();
query.PREPARE_SELECT ( "dmr_demirbaslar","yillik_ayrilan_amor_yuzdesi,"
"toplamda_ayrilan_amor_yuzdesi,"
"amortisman_orani,"
"amortisman_ayrilabilir_mi , yeniden_degerleme_yapildi ,"
"yeni_brkms_amortisman_tutari , demirbasin_yeni_degeri",
"demirbas_id = :demirbas_id" );
query.SET_VALUE (":demirbas_id" , demirbas_id);
if ( query.SELECT() EQ 0 ) {
return;
}
query.NEXT();
double yillik_ayrilan_amortisman_yuzdesi = query.VALUE(0).toDouble();
double toplamda_ayrilan_amortisman_yuzdesi = query.VALUE(1).toDouble();
double amortisman_orani = query.VALUE(2).toDouble();
int amortisman_ayrilabilir_mi = query.VALUE(3).toInt();
int yeniden_degerleme_yapildi = query.VALUE(4).toInt();
double yeni_birikmis_amortisman_tutari = query.VALUE(5).toDouble();
double demirbasin_yeni_degeri = query.VALUE(6).toDouble();
if ( P_FIS->fis_turu EQ YENIDEN_DEGERLEME_FISI ) {
yeniden_degerleme_yapildi = 0;
yeni_birikmis_amortisman_tutari = 0;
demirbasin_yeni_degeri = 0;
}
else {
if ( yillik_ayrilan_amortisman_yuzdesi EQ 100 ) {
toplamda_ayrilan_amortisman_yuzdesi -= amortisman_orani;
}
yillik_ayrilan_amortisman_yuzdesi -= P_FIS->dusulecek_amor_yuzdesi;
if ( toplamda_ayrilan_amortisman_yuzdesi < 100 ) {
amortisman_ayrilabilir_mi = 1;
}
}
query.PREPARE_UPDATE ( "dmr_demirbaslar","demirbas_id","yillik_ayrilan_amor_yuzdesi ,"
"toplamda_ayrilan_amor_yuzdesi , "
"amortisman_ayrilabilir_mi ,"
"yeniden_degerleme_yapildi , yeni_brkms_amortisman_tutari,"
"demirbasin_yeni_degeri",
"demirbas_id = :demirbas_id" );
query.SET_VALUE ( ":yillik_ayrilan_amor_yuzdesi" , yillik_ayrilan_amortisman_yuzdesi );
query.SET_VALUE ( ":toplamda_ayrilan_amor_yuzdesi" , toplamda_ayrilan_amortisman_yuzdesi );
query.SET_VALUE ( ":amortisman_ayrilabilir_mi" , amortisman_ayrilabilir_mi );
query.SET_VALUE ( ":yeniden_degerleme_yapildi" , yeniden_degerleme_yapildi );
query.SET_VALUE ( ":yeni_brkms_amortisman_tutari" , yeni_birikmis_amortisman_tutari);
query.SET_VALUE ( ":demirbasin_yeni_degeri" , demirbasin_yeni_degeri);
query.SET_VALUE ( ":demirbas_id" , demirbas_id );
query.UPDATE();
toplam_tutar -= satir_tutari;
toplam_birikmis_amor_tutari -= birikmis_amor_tutari;
P_FIS->toplam_tutar = toplam_tutar;
P_FIS->top_birikmis_amor_tutari = toplam_birikmis_amor_tutari;
query.PREPARE_UPDATE ( "dmr_fisler","fis_id","toplam_tutar ,toplam_birikmis_amor_tutari",
"fis_id = :fis_id");
query.SET_VALUE ( ":toplam_tutar" , P_FIS->toplam_tutar );
query.SET_VALUE ( ":toplam_birikmis_amor_tutari" , P_FIS->top_birikmis_amor_tutari);
query.SET_VALUE ( ":fis_id" , fis_id );
query.UPDATE();
query.PREPARE_DELETE ( "dmr_fis_satirlari","fis_satiri_id = :fis_satiri_id" );
query.SET_VALUE ( ":fis_satiri_id" , p_fis_satiri_id);
query.DELETE();
if ( P_FIS->fis_turu EQ AMORTISMAN_AYIRMA_FISI ) {
DMR_AMORTISMAN_TUTARINI_AZALT ( demirbas_id, MALI_YIL_ARRAY_INDIS ( fis_tarihi),satir_tutari);
}
if ( base_record_id EQ 0 ) {
base_record_id = p_fis_satiri_id;
}
if ( P_FIS->base_fis_id EQ 0 ) {
P_FIS->base_fis_id = fis_id;
}
//ISLETME_ENTEGRASYONU
int isl_fis_id = ISL_GET_ENT_FIS_ID(P_FIS->modul_id , P_FIS->program_id , P_FIS->base_fis_id);
if ( isl_fis_id > 0 ) {
ISL_FIS_STRUCT * ISL_FISI = new ISL_FIS_STRUCT;
ISL_CLEAR_FIS_STRUCT(ISL_FISI);
ISL_FIS_BILGILERINI_OKU(ISL_FISI , isl_fis_id);
int isl_fis_satiri_id = ISL_GET_ENT_FIS_SATIRI_ID(P_FIS->modul_id , P_FIS->program_id , base_record_id);
ISL_FIS_SATIRI_SIL(ISL_FISI , isl_fis_satiri_id);
delete ISL_FISI;
}
//MUHASEBE ENTEGRASYONU
MUH_FIS_STRUCT * MUHASEBE_FISI = new MUH_FIS_STRUCT;
MUH_CLEAR_FIS_STRUCT(MUHASEBE_FISI);
MUH_FIS_BILGILERINI_OKU(MUHASEBE_FISI , P_FIS->muh_fis_id);
QStringList MUH_ROW_ID_LIST = MUH_GET_ENT_ROW_ID_LIST(P_FIS->program_id,P_FIS->modul_id ,
base_record_id);
for ( int i = 0 ; i < MUH_ROW_ID_LIST.size() ; i++ ) {
int muh_fis_satiri_id = QVariant(MUH_ROW_ID_LIST.at(i)).toInt();
MUH_FIS_SATIRINI_SIL(MUHASEBE_FISI , muh_fis_satiri_id);
}
delete MUHASEBE_FISI;
}
void DMR_FIS_GUNCELLE(DMR_FIS_STRUCT *P_FIS, int p_fis_id)
{
SQL_QUERY query (DB);
query.PREPARE_SELECT("dmr_fisler" , "fis_tarihi , modul_id , program_id , base_fis_id",
"fis_id = :fis_id");
query.SET_VALUE(":fis_id" , p_fis_id);
if ( query.SELECT() EQ 0 ) {
return;
}
query.NEXT();
QString fis_tarihi = query.VALUE(0).toString();
int modul_id = query.VALUE(1).toInt();
int program_id = query.VALUE(2).toInt();
int base_fis_id = query.VALUE(3).toInt();
if ( P_FIS->modul_id NE modul_id OR P_FIS->program_id NE program_id
OR P_FIS->base_fis_id NE base_fis_id ) {
return;
}
if ( P_FIS->fis_turu EQ AMORTISMAN_AYIRMA_FISI ) {
if ( fis_tarihi NE P_FIS->fis_tarihi ) {
//fis tarihi degistiginde eski tarihten baslayarak amortisman tutari azaltilir\yeni tarihe gore tekrardan arttirilir
int old_gun_no = MALI_YIL_ARRAY_INDIS ( QDate::fromString(fis_tarihi , "yyyy.MM.dd") );
int gun_no = MALI_YIL_ARRAY_INDIS ( QDate::fromString(P_FIS->fis_tarihi , "yyyy.MM.dd"));
query.PREPARE_SELECT ( "dmr_fisler,dmr_fis_satirlari","demirbas_id,satir_tutari ",
"dmr_fisler.fis_id = dmr_fis_satirlari.fis_id AND "
"dmr_fisler.fis_id = :fis_id" );
query.SET_VALUE ( ":fis_id" , p_fis_id );
if ( query.SELECT() NE 0 ) {
while ( query.NEXT() ) {
int demirbas_id = query.VALUE(0).toInt();
double satir_tutari = query.VALUE(1).toDouble();
DMR_AMORTISMAN_TUTARINI_AZALT ( demirbas_id , old_gun_no , satir_tutari );
DMR_AMORTISMAN_TUTARINI_ARTTIR ( demirbas_id , gun_no , satir_tutari );
}
}
}
}
query.PREPARE_UPDATE("dmr_fisler" , "fis_id" , "fis_no,aciklama,fis_tarihi,"
"dusulecek_amortisman_yuzdesi,degerleme_orani" , "fis_id = :fis_id");
query.SET_VALUE(":fis_no" , P_FIS->fis_no );
query.SET_VALUE(":aciklama" , P_FIS->aciklama);
query.SET_VALUE(":fis_tarihi" , P_FIS->fis_tarihi);
query.SET_VALUE(":dusulecek_amortisman_yuzdesi" , P_FIS->dusulecek_amor_yuzdesi);
query.SET_VALUE(":degerleme_orani" , P_FIS->degerleme_orani);
query.SET_VALUE(":fis_id" , p_fis_id);
query.UPDATE();
if ( P_FIS->base_fis_id EQ 0 ) {
P_FIS->base_fis_id = p_fis_id;
}
//ISLETME ENTEGRASYONU
int isl_fis_id = ISL_GET_ENT_FIS_ID(P_FIS->modul_id , P_FIS->program_id , P_FIS->base_fis_id);
if ( isl_fis_id > 0 ) {
ISL_FIS_STRUCT * ISL_FISI = new ISL_FIS_STRUCT;
ISL_CLEAR_FIS_STRUCT(ISL_FISI);
ISL_FIS_BILGILERINI_OKU(ISL_FISI , isl_fis_id);
QString aciklama = QObject::tr("Fiş SABİT KIYMET modülü tarafından üretilmiştir.Fiş No : %1\n").arg(QVariant(P_FIS->fis_no).toString());
aciklama += P_FIS->aciklama;
ISL_FISI->aciklama = aciklama;
ISL_FISI->fis_tarihi = P_FIS->fis_tarihi;
ISL_FISI_GUNCELLE(ISL_FISI , isl_fis_id);
delete ISL_FISI;
}
//MUHASEBE ENTEGRASYONU
MUH_FIS_STRUCT * MUHASEBE_FISI = new MUH_FIS_STRUCT;
MUH_CLEAR_FIS_STRUCT(MUHASEBE_FISI);
MUH_FIS_BILGILERINI_OKU ( MUHASEBE_FISI , P_FIS->muh_fis_id );
if ( P_FIS->modul_id EQ DEMIRBAS_MODULU ) {
QString aciklama = QObject::tr("Fiş SABİT KIYMET modülü tarafından üretilmiştir.Fiş No : %1\n").arg(QVariant(P_FIS->fis_no).toString());
aciklama += P_FIS->aciklama;
MUHASEBE_FISI->aciklama = aciklama;
}
else {
MUHASEBE_FISI->aciklama = P_FIS->aciklama;
}
MUHASEBE_FISI->fis_tarihi = P_FIS->fis_tarihi;
MUH_FISI_GUNCELLE ( MUHASEBE_FISI , P_FIS->muh_fis_id );
delete MUHASEBE_FISI;
}
