unit u_ch_piliang_seae;

interface

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

type
  Tfrm_ch_piliang_seae = 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;
    t_op_seae: TADOStoredProc;
    t_op_gain: TADOQuery;
    t_op_gain1: TDataSource;
    bsSkinButton8: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ch_piliang_seae: Tfrm_ch_piliang_seae;

implementation

uses u_main, my_sys_function;

{$R *.dfm}

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

procedure Tfrm_ch_piliang_seae.bsSkinButton8Click(Sender: TObject);
var b_Closed:boolean;
begin
  if t_sys_report.IsEmpty then
  begin
    showmessage('没有利润单格式，无法打印！！');
    exit;
  end;
  if strtobool(get_parameters_value(2,'false'))then
  begin
    t_op_seae.first;
    while not t_op_seae.eof do
    begin
      b_Closed:=true;
      t_ch_accept.first;
      while not t_ch_accept.eof do
      begin
        if (t_ch_accept.FieldByName('费用状态').asstring='录入状态')
        or(t_ch_accept.FieldByName('费用状态').asstring='提交审核')
        or(t_ch_accept.FieldByName('费用状态').asstring='申请修改')
        or(t_ch_accept.FieldByName('费用状态').asstring='驳回提交')
        or(t_ch_accept.FieldByName('费用状态').asstring='申请删除') then
        begin
          showmessage('费用必须在审核通过后方可以打印利润单！！');
          exit;
          b_Closed:=false;
        end;
        t_ch_accept.next;
      end;

      t_ch_pay.first;
      while not t_ch_pay.eof do
      begin
        if (t_ch_pay.FieldByName('费用状态').asstring='录入状态')
        or(t_ch_pay.FieldByName('费用状态').asstring='提交审核')
        or(t_ch_pay.FieldByName('费用状态').asstring='申请修改')
        or(t_ch_pay.FieldByName('费用状态').asstring='驳回提交')
        or(t_ch_pay.FieldByName('费用状态').asstring='申请删除') then
        begin
          showmessage('费用必须在审核通过后方可以打印利润单！！');
          exit;
          b_Closed:=false;
        end;
        t_ch_pay.next;
      end;
      
      if strtobool(get_parameters_value(63,'false'))then
      begin
        if b_Closed then
          if t_op_seae.FieldByName('费用状态').asstring<>'费用封帐' then
          begin
            t_op_seae.edit;
            t_op_seae['费用状态']:='费用封帐';
            t_op_seae.post;
          end;
      end;
      t_op_seae.next;
    end;
  end;
  sys_frprint_piliang('海运出口利润单',t_sys_report.fieldbyname('报表名称').asstring,t_op_seae,t_op_seae1,t_op_gain1,nil,nil,t_ch_accept1,t_ch_pay1,nil,nil,nil,nil,nil);

end;

procedure Tfrm_ch_piliang_seae.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;
end;

end.