بتاريخ: 9 فبراير 20206 سنة comment_300121 هل الكود التالي في زر الطباعة في الفورم صحيح عند الطباعة لا يعطي اي شيء ارجو المساعدة مرفق ريبورت التقرير للفورم :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 تقديم بلاغ
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.