الانتقال إلى المحتوى

ارجو المساعدة في تقرير طباعة فاتورة


Salaem Ali

Recommended Posts

هل الكود التالي في زر الطباعة في الفورم صحيح

عند الطباعة لا يعطي اي شيء ارجو المساعدة

مرفق ريبورت التقرير للفورم

 

 

  :invoice.invoice_total := :invoice_datails.total_invoice_text;
       :invoice.invoice_cost := :invoice_datails.total_cost_text;
commit;
declare     
          pl_id ParamList;
              a number :=0;
    b number :=0;
    c number :=0;
           
     BEGIN     
       pl_id := Get_Parameter_List('tempdata');      
       IF NOT Id_Null(pl_id) THEN 
       destroy_Parameter_List( pl_id ); 
       END IF;        
       pl_id := Create_Parameter_List('pl_temp'); 
       Add_Parameter(pl_id,'P',TEXT_PARAMETER,:invoice.invoice_id_2);  
       Add_Parameter(pl_id,'PARAMFORM',TEXT_PARAMETER,'NO');
       Add_Parameter(pl_id,'DESTYPE',text_parameter,'PRINTER');
       Add_Parameter(pl_id,'DESNAME',text_parameter,'hp1515');
     
          Run_Product(REPORTS, 'd:\barnees\rep\invoice.rep', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id); 
          if :pay_method = 'Ðãã' then
              Run_Product(REPORTS, 'd:\barnees\rep\invoice.rep', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id); 
              end if;
       Destroy_Parameter_List( pl_id );
       -------------------
       -------------------
       
      
       

  select nvl(sum(senf_total_tax),0) into a from invoice_datails where invoice_datails.invoice_id =:invoice.invoice_id
  and 
  invoice_datails.senf_tax=0.04;
    select nvl(sum(senf_total_tax),0) into b from invoice_datails where invoice_datails.invoice_id =:invoice.invoice_id
  and 
  invoice_datails.senf_tax=0.08;
    select nvl(sum(senf_total_tax),0) into c from invoice_datails where invoice_datails.invoice_id =:invoice.invoice_id
  and 
  invoice_datails.senf_tax=0.16;
  :invoice.tax_4_text :=a;
  :invoice.tax_8_text :=b;
  :invoice.tax_16_text :=c;
  commit;
   if :cust_name >0 
       then
         insert into cust_trans (invoice_id,cust_id,pay_trans,trans_type,trans_date)
    values (:invoice.invoice_id_2,:cust_name,:invoice.invoice_total,:pay_method,:invoice.invoice_date);
       commit;
       end if;
  
       
     END;
     clear_form(no_commit,no_validate);
       select nvl (max(invoice_id),0)+1   into :invoice.invoice_id_2 from invoice;
       select invoice_total   into :control.last_inv from invoice where invoice_id=:invoice.invoice_id_2-1;
       select sysdate into :invoice.invoice_date   from dual;
       :invoice_datails.invoice_id := :invoice.invoice_id_2;
       --READ_IMAGE_FILE('D:\barnees\images\'||:global.user1||'.jpg', 'jpg', 'img1');
       :senf_q := 1;
       :senf_discount := 0;
       :pay_method:='äÞÏí';
       :user_n:=:global.user1;
       :SENF_DISCOUNT_NAQDI :=0;    
       go_block('control');
       go_item('barcode'); 
     

invoice.rdf invoice.rep

رابط هذا التعليق
شارك

انضم إلى المناقشة

يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.

زائر
أضف رد على هذا الموضوع...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   تمت استعادة المحتوى السابق الخاص بك.   مسح المحرر

×   You cannot paste images directly. Upload or insert images from URL.

جاري التحميل
×
×
  • أضف...

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

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