unit u_ch_piliang_prnfee;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, BusinessSkinForm, dxExEdtr, dxDBTLCl, dxGrClms,
  dxDBGrid, dxTL, dxDBCtrl, dxCntner, DB, ADODB, StdCtrls;

type
  Tfrm_ch_piliang_prnfee = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1Column16: TdxDBGridDateColumn;
    dxDBGrid1Column19: TdxDBGridMaskColumn;
    dxDBGrid1Column20: TdxDBGridMaskColumn;
    dxDBGrid1TEU: TdxDBGridMaskColumn;
    dxDBGrid1Column63: TdxDBGridMaskColumn;
    dxDBGrid1Column64: TdxDBGridMaskColumn;
    dxDBGrid1Column65: TdxDBGridDateColumn;
    dxDBGrid1Column66: TdxDBGridMaskColumn;
    dxDBGrid1Column67: TdxDBGridMaskColumn;
    t_op_seae1: TDataSource;
    t_ch_accept: TADOQuery;
    t_ch_accept1: TDataSource;
    t_ch_pay: TADOQuery;
    t_ch_pay1: TDataSource;
    t_sys_report: TADOQuery;
    t_sys_report1: TDataSource;
    dxDBGrid2: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridCheckColumn;
    tv_bscard_all: TADOStoredProc;
    t_op_gain: TADOQuery;
    t_op_gain1: TDataSource;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    t_op_gain_main1: TDataSource;
    t_op_gain_main: TADOQuery;
    qrytmp: TADOQuery;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure setprntrue ;
  public
    { Public declarations }
  end;

var
  frm_ch_piliang_prnfee: Tfrm_ch_piliang_prnfee;

implementation

uses u_main, my_sys_function;

{$R *.dfm}

procedure Tfrm_ch_piliang_prnfee.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_ch_piliang_prnfee.bsSkinButton8Click(Sender: TObject);
begin
  if t_sys_report.IsEmpty then
  begin
    showmessage('没有帐单格式，无法打印！！');
    exit;
  end;
showmessage('0');
  setprntrue;
showmessage('1');

  sys_print_piliang('核算单打印',t_sys_report.fieldbyname('报表名称').asstring,
     tv_bscard_all,t_op_seae1,nil,nil,nil,
     t_ch_accept1,t_ch_pay1,t_op_gain1,t_op_gain_main1,nil,nil,nil,t_sys_report.fieldbyname('CH_ID').asinteger);
end;

procedure Tfrm_ch_piliang_prnfee.FormShow(Sender: TObject);
begin
  t_sys_report.Parameters[0].value:='核算单打印';
  t_sys_report.open;
  t_ch_accept.open;
  t_ch_pay.open;
  t_op_gain.open;
  t_op_gain_main.Open ;
end;

procedure Tfrm_ch_piliang_prnfee.setprntrue;
var tblname:string ;
begin
  with tv_bscard_all do
  begin
    First ;
    while not eof do
    begin
      tblname:='' ;
      if tv_bscard_all.FieldByName('业务类型').asstring='海运出口' then tblname:='t_op_seae'
       else
       if tv_bscard_all.FieldByName('业务类型').asstring='海运进口' then tblname:='t_op_seai'
        else
         if tv_bscard_all.FieldByName('业务类型').asstring='空运出口' then tblname:='t_op_aire'
         else
          if tv_bscard_all.FieldByName('业务类型').asstring='空运进口' then tblname:='t_op_airi'
           else raise exception.Create('发生不可预知错误！') ;
      qrytmp.Close ;
      qrytmp.sql.clear ;
      qrytmp.sql.add('update '+tblname+' set 是否打印=1 ');
      if strtobool(get_parameters_value(63,'false'))then
        qrytmp.sql.add(' ,费用状态=''费用封帐''');
      qrytmp.sql.add('where 编号=:bianhao');
      qrytmp.parameters.parambyname('bianhao').value:=FieldByName('编号').asstring ;
      qrytmp.execsql ;
      next ;
    end ;
    first ;
  end ;
end;

end.