اخواني الاعزاء اتمني من كل شخص فاهم الموضزع التفاعل للافادة

انا خلصت نظام محاسبي كامل مع محاسبة التصنع  باقي التالي

1-الاقفال السنوي 

2-فتح سنة جديدة

اتمني الاجابة الكافية وياحبذا يكون الشرح يكون برمجيا شاكرين التعاون والتفاعل من الجميع مقدما

بعد الانتظار الطويل لم اجد اي تجاوب من اعضاءالمنتدي

ولذالك احب ان اقد لكم هذ الكود لعملية الاقفال وفتح سنة جديدة

    declare
             
             
                

     كرسر  لتجميع  المبالغ  للسنة الحالية وجعلها  مبالغ افتتاحية للسنة الجديدة 

cursor blsy  is select no_acc,NAME_ACC,nvl(sum(DEBTOR),0),nvl(sum(CRDITOR),0),CENCOST ,FLG from daly where LCK<>1 

 

   group by FLG,no_acc,NAME_ACC,CENCOST ;

 
     كرسر  لتجميع  المبالغ للمصاريف والايرادات وجعلها في حساب الارباح والخسارة
                n_c varchar2(22);
                dbt number(30);
                crd number(30);    
                n_rec varchar2(100);        
                n varchar2(15);
                    fg varchar2(22);
                cncost number(30);
                    cvr number(30);    
                dtl varchar2(100);
                dat date;    
                nam varchar2(100);
                norc number(30);    
                debs  number(30);    
                crds number(30);
                    debsfg number(30);    
                crdsfg number(30);    
                fgg varchar2(40);
                eql number;
                n1 number;
                d1 date;
    
        cursor c3 is select no_acc,type_acc 
          from gacc;
         
          n_acco varchar2(30);
          typ_acc varchar2(30);    
          albk number;    
          scc number;
    cursor prft is     select nvl(DEBTOR,0),nvl(CRDITOR,0),flg  from daly       where substr(NO_ACC,1,1) between 2 and 3 ;   

    i varchar(100);
    nn number;
    m number;
begin

        
          
      
       
         
         -- end loop; create buck up for all date
          --close c4;

        albk:=show_alert('bk');
        if albk=alert_button1 then
    --        call_form('d:\updateacc\import and export');
    call_form(:global.path||'\import and export');
        scc:=show_alert('sc');
        elsif albk=alert_button2 then
            null;
        end if;
        
        
        insert into ledger(NO_ACC,NO_REC,DATE_REC ,MON_DEBT,MON_CRDT,DETAIL,TYPE_CROVR,CENCOST,FLG) 
       select no_acc,no_rec,date_rec,DEBTOR,CRDITOR , DTL_ACC ,CROVR,CENCOST ,FLG               
             from daly     where date_rec between :dstr and :dend  and lck<>1;  
        
        
        --ÓíÊã ÊÌãíÚ ÇáãÕÇÑíÝ æÇáÇíÑÇÏÇÊ  ææÖÚåÇ Ýí ÍÓÇÈ ÇáÇÑÈÇÍ æÇáÎÓÇÆÑ
        
        
        
            
          select  count(*) into i from gacc where   name_acc=:prof ;
          if i=1 then
              
                  null;
          else
              message('ÍÓÇÈ ÇáÇÑÈÇÍ æÇáÎÓÇÑÉ ÛíÑ ãæÌæÏ Ýí ÇáÏáíá åá ÇäÊ ãÊÇßÏ ãä ÇÖÇÝÊÉ');
              --    message('are yuo sur add to prof');
                  select max(NO_ACC)+1,lvl_acc into nn,m from gacc where MAIN_AC=2112  group by lvl_acc ;
                   :noprf:=nn;
                  insert into gacc (MAIN_AC ,NO_ACC,NAME_ACC,LVL_ACC) values(2112,nn,:prof,m);
                     
        
          end if;
          
          
         open prft;
             debsfg:=0;
            
                crdsfg :=0;
          loop
    fetch prft into debs,crds,fgg; 
      
        
              
                exit when prft%notfound;
                
                  select EQLCR  into eql from curr where flg=fgg;
                    debsfg:=    debsfg+debs*eql;
            
                crdsfg :=    crdsfg+crds*eql;
          end loop;
         close prft;
          
      select  max(NO_REC)+1  into norc  from rec_daly;
       insert into REC_DALY(NO_REC,DATE_REC)values(norc,:NEXDAT);
    insert into daly  (no_acc,NAME_ACC,no_rec,date_rec,DEBTOR,CRDITOR ,DTL_ACC ) values(:noprf,:prof,norc,:NEXDAT,debsfg,    crdsfg,'ÇáÇÑÈÇÍ æÇáÎÓÇÆÑ ááÚÇã ÇáãÇÖí' );         
   اضافة  صافي الايرادات والمصروفات في  حساب الارباح والخسارة
   norc:=norc+1;
             

    go_block('daly');
    
         open blsy;
         loop
                   fetch blsy into  n_c,nam,dbt,crd,cncost,fg;
          exit when blsy%notfound;
           
          
          :no_acc:=n_c; 
          :NAME_ACC:=NAM;
          :no_rec:=norc;
          :date_rec:=sysdate;
          :DEBTOR:=dbt;
          :CRDITOR :=crd;
          :DTL_ACC:='ÑÕíÏ ÓÇÈÞ';
          :CENCOST:=cncost;
          :FLG:=fg;
          
          
         لتجميع  المبالغ  للسنة الحالية وجعلها  مبالغ افتتاحية للسنة الجديدة
          insert into REC_DALY(NO_REC,DATE_REC)values(norc,:NEXDAT);
           
          insert into daly  (no_acc,NAME_ACC,no_rec,date_rec,DEBTOR,CRDITOR ,DTL_ACC ,CENCOST ,FLG) values(n_c,NAM,norc,:NEXDAT,dbt,crd,'ÑÕíÏ ÓÇÈÞ' ,cncost,fg);
          
      next_record;
          norc:=norc+1;
           
         end loop;
       close blsy; 
      update daly set lck=1 where   date_rec<sysdate;
         commit;
  --     update gacc set  ACC_STR=nvl(crds,0)-nvl(debs,0) ;  
        
         
    end;
        
    
    
    
    
        
         
    
         
    

اقتباس

بعد الانتظار الطويل لم اجد اي تجاوب من اعضاءالمنتدي

كما تعلم سلمك الله هذه عملية تطوعية وليس واجبا الزاميا على احد حتى تعاتبه

بعبارة أخرى اذا توفر وقت لاحد يساعدك في سؤالك او يساعدني في سؤالي او يساعد ثالثا في سؤاله فجزاه الله خيرا

واذا لم يتوفر له وقت فايضا جزاه الله خيرا واعانه الله

وشكرا لمشاركتك معلومة كتبها الله في ميزان حسناتك

ودمتم بخير وعافية

الاخ العزيز

السلام عليكم ورحمة اللة وبركاتة

رجاء مزيد من التوضيح حتي علي الاميل الخاص وانشاء اللة ستجد  طلبك لانني عملت هذا الموضوع عشرات المرات

وتتلخص حسابيا كالتالي

1- انشاء عامود جديد في جدول دليل الحسابات دليل لسنة الحساب

2- دائما وضع الحركة علي اخر سنة وهي السنة الفتوحة للحركة اما السنوات السابقة فهي مقفلة للاطلاع فقط .

3 - عملية الاقفال تتلخص في ترصيد حسابات الاصول والخصوم وانشاء حسابات جديدة لها للسنة الجديدة كرصيد اول المدة .

4- نقل حسابات المصروفات والايرادات بدون رصيد للسنة الجديدة .

5- اتمام دليل الحسابات للسنة الجديدة بربح او خسارة .

وانا تحت امرك في اية توضيح       Whats-app   [email protected]     01007626342

واللة الموفق

تم تعديل 19 فبراير 20215 سنة بواسطة HIGHPOINT