اذهب الي المحتوي
سليم ناشر

غاية في الاهمية الاقفال السنوي وفتح سنة جديد

Recommended Posts

سليم ناشر

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

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

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك
saleem_altheviny

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

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

    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;
          
          
         لتجميع 1544046051_.jpg.125407dfb22fc74304fcf35855313755.jpg المبالغ  للسنة الحالية وجعلها  مبالغ افتتاحية للسنة الجديدة
          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

شارك هذه المشاركه


رابط المشاركه
شارك
محمود ربيع
اقتباس

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

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

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

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

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

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

  • أعجبني 1

شارك هذه المشاركه


رابط المشاركه
شارك

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان

×
×
  • اضف...

برجاء الإنتباه

بإستخدامك للموقع فأنت تتعهد بالموافقة على هذه البنود: إتفاقية الخصوصية