📄 unit2.pas

📁 发票套打功能
💻 PAS
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
      SaveTable.FieldByName('备注').AsString := DBGrid1.Fields[22].Text  ;
      SaveTable.Append ;
      //必须再增加，否则它就不会马上写入数据库
      SaveTable.Close ;
    end;
    CustomerData.FpZF.Delete ;
    Application.MessageBox(PChar('发票作废成功   ！'), PChar('提示'),MB_ICONINFORMATION);
    edit1.Text :='' ;
   end;
  end;
except
     Application.MessageBox(PChar('发票删除出现错误，没有成功作废  ！'), PChar('发票作废'),MB_OK +
  MB_ICONINFORMATION);
end;
end;
{作废转产不动产发票}
procedure TForm2.ZrbdcFPZF();
Var
   {到底是以发票号码还是以客户编码来删除}
   Scfp : String ;
begin
try
    {开始删除原来的记录}
    with CustomerData do
    begin
     if application.MessageBox('是否真的把此发票作废?', '发票作废', MB_YESNO +
      MB_ICONWARNING + MB_TOPMOST) = 6 then
     begin
   {删除就是把原来的记录转移到另外的表中去}
   with CustomerData do
   begin
      SaveTable.Close ;
      {原来的表名加  ZF  以后就成功为报废的表了}
      SaveTable.TableName :='ZrbdcFPZF' ;
      SaveTable.open;
      SaveTable.First ;
      SaveTable.Append ;
      SaveTable.FieldByName('发票号码').AsString := DBGrid1.Fields[0].Text  ;
      SaveTable.FieldByName('买方名称').AsString   := DBGrid1.Fields[1].Text ;
      SaveTable.FieldByName('客户编码').AsString := DBGrid1.Fields[2].Text  ;
      SaveTable.FieldByName('客户名称').AsString := DBGrid1.Fields[3].Text ;
      SaveTable.FieldByName('日期').AsString     := DBGrid1.Fields[4].Text  ;
      SaveTable.FieldByName('卖方名称').AsString := DBGrid1.Fields[5].Text  ;
      SaveTable.FieldByName('座落地点').AsString := DBGrid1.Fields[6].Text  ;
      SaveTable.FieldByName('项目').AsString := DBGrid1.Fields[7].Text  ;
      SaveTable.FieldByName('建筑面积').AsString     := DBGrid1.Fields[8].Text  ;
      SaveTable.FieldByName('单价').AsString     := DBGrid1.Fields[9].Text  ;
      SaveTable.FieldByName('金额').AsString     := DBGrid1.Fields[10].Text  ;
      SaveTable.FieldByName('金额大写').AsString := DBGrid1.Fields[11].Text  ;
      SaveTable.FieldByName('金额合计').AsString     := DBGrid1.Fields[12].Text  ;
      SaveTable.FieldByName('开票人').AsString := DBGrid1.Fields[13].Text  ;
      SaveTable.FieldByName('收款人').AsString := DBGrid1.Fields[14].Text  ;
      SaveTable.FieldByName('备注').AsString := DBGrid1.Fields[15].Text  ;
      SaveTable.Append ;
      //必须再增加，否则它就不会马上写入数据库
      SaveTable.Close ;
    end;
    CustomerData.FpZF.Delete ;
    Application.MessageBox(PChar('发票作废成功   ！'), PChar('提示'),MB_ICONINFORMATION);
    edit1.Text :='' ;
   end;
  end;
except
     Application.MessageBox(PChar('发票删除出现错误，没有成功作废  ！'), PChar('发票作废'),MB_OK +
  MB_ICONINFORMATION);
end;
end;
{作废其它服务业产发票}
procedure TForm2.QtfwyFPZF();
Var
   {到底是以发票号码还是以客户编码来删除}
   Scfp : String ;
begin
try
    {开始删除原来的记录}
    with CustomerData do
    begin
     if application.MessageBox('是否真的把此发票作废?', '发票作废', MB_YESNO +
      MB_ICONWARNING + MB_TOPMOST) = 6 then
     begin
   {删除就是把原来的记录转移到另外的表中去}
   with CustomerData do
   begin
      SaveTable.Close ;
      {原来的表名加  ZF  以后就成功为报废的表了}
      SaveTable.TableName :='QtfwyFPZF' ;
      SaveTable.open;
      SaveTable.First ;
      SaveTable.Append ;
      SaveTable.FieldByName('发票代码').AsString := DBGrid1.Fields[0].Text  ;
      SaveTable.FieldByName('发票号码').AsString   := DBGrid1.Fields[1].Text ;
      SaveTable.FieldByName('客户编码').AsString := DBGrid1.Fields[2].Text  ;
      SaveTable.FieldByName('客户名称').AsString := DBGrid1.Fields[3].Text ;
      SaveTable.FieldByName('日期').AsString     := DBGrid1.Fields[4].Text  ;
      SaveTable.FieldByName('项目').AsString := DBGrid1.Fields[5].Text  ;
      SaveTable.FieldByName('单位').AsString := DBGrid1.Fields[6].Text  ;
      SaveTable.FieldByName('数量').AsString := DBGrid1.Fields[7].Text  ;
      SaveTable.FieldByName('收费标准').AsString     := DBGrid1.Fields[8].Text  ;
      SaveTable.FieldByName('金额').AsString     := DBGrid1.Fields[9].Text  ;
      SaveTable.FieldByName('金额大写').AsString     := DBGrid1.Fields[10].Text  ;
      SaveTable.FieldByName('金额合计').AsString := DBGrid1.Fields[11].Text  ;
      SaveTable.FieldByName('开票人').AsString     := DBGrid1.Fields[12].Text  ;
      SaveTable.FieldByName('收款人').AsString := DBGrid1.Fields[13].Text  ;
      SaveTable.FieldByName('备注').AsString := DBGrid1.Fields[14].Text  ;      
      SaveTable.Append ;
      //必须再增加，否则它就不会马上写入数据库
      SaveTable.Close ;
    end;
    CustomerData.FpZF.Delete ;
    Application.MessageBox(PChar('发票作废成功   ！'), PChar('提示'),MB_ICONINFORMATION);
    edit1.Text :='' ;
   end;
  end;
except
     Application.MessageBox(PChar('发票删除出现错误，没有成功作废  ！'), PChar('发票作废'),MB_OK +
  MB_ICONINFORMATION);
end;
end;
{作废转让无形资产发票}
procedure TForm2.ZrwxzcFPZF();
Var
   {到底是以发票号码还是以客户编码来删除}
   Scfp : String ;
begin
try
    {开始删除原来的记录}
    with CustomerData do
    begin
     if application.MessageBox('是否真的把此发票作废?', '发票作废', MB_YESNO +
      MB_ICONWARNING + MB_TOPMOST) = 6 then
     begin
   {删除就是把原来的记录转移到另外的表中去}
   with CustomerData do
   begin
      SaveTable.Close ;
      {原来的表名加  ZF  以后就成功为报废的表了}
      SaveTable.TableName :='ZrwxzcFPZF' ;
      SaveTable.open;
      SaveTable.First ;
      SaveTable.Append ;
      SaveTable.FieldByName('发票号码').AsString := DBGrid1.Fields[0].Text  ;
      SaveTable.FieldByName('客户编码').AsString   := DBGrid1.Fields[1].Text ;
      SaveTable.FieldByName('客户名称').AsString := DBGrid1.Fields[2].Text  ;
      SaveTable.FieldByName('日期').AsString := DBGrid1.Fields[3].Text ;
      SaveTable.FieldByName('付款单位').AsString     := DBGrid1.Fields[4].Text  ;
      SaveTable.FieldByName('收款单位').AsString := DBGrid1.Fields[5].Text  ;
      SaveTable.FieldByName('合同登记号').AsString := DBGrid1.Fields[6].Text  ;
      SaveTable.FieldByName('项目').AsString := DBGrid1.Fields[7].Text  ;
      SaveTable.FieldByName('名称').AsString     := DBGrid1.Fields[8].Text  ;
      SaveTable.FieldByName('金额').AsString     := DBGrid1.Fields[9].Text  ;
      SaveTable.FieldByName('金额大写').AsString     := DBGrid1.Fields[10].Text  ;
      SaveTable.FieldByName('金额合计').AsString := DBGrid1.Fields[11].Text  ;
      SaveTable.FieldByName('开票人').AsString     := DBGrid1.Fields[12].Text  ;
      SaveTable.FieldByName('收款人').AsString := DBGrid1.Fields[13].Text  ;
      SaveTable.Append ;
      //必须再增加，否则它就不会马上写入数据库
      SaveTable.Close ;
    end;
    CustomerData.FpZF.Delete ;
    Application.MessageBox(PChar('发票作废成功   ！'), PChar('提示'),MB_ICONINFORMATION);
    edit1.Text :='' ;
   end;
  end;
except
     Application.MessageBox(PChar('发票删除出现错误，没有成功作废  ！'), PChar('发票作废'),MB_OK +
  MB_ICONINFORMATION);
end;
end;
{租赁业发票作废}
procedure TForm2.ZlyFPZF();
Var
   {到底是以发票号码还是以客户编码来删除}
   Scfp : String ;
begin
try
    {开始删除原来的记录}
    with CustomerData do
    begin
     if application.MessageBox('是否真的把此发票作废?', '发票作废', MB_YESNO +
      MB_ICONWARNING + MB_TOPMOST) = 6 then
     begin
   {删除就是把原来的记录转移到另外的表中去}
   with CustomerData do
   begin
      SaveTable.Close ;
      {原来的表名加  ZF  以后就成功为报废的表了}
      SaveTable.TableName :='ZlyfpZF' ;
      SaveTable.open;
      SaveTable.First ;
      SaveTable.Append ;
      SaveTable.FieldByName('发票号码').AsString := DBGrid1.Fields[0].Text  ;
      SaveTable.FieldByName('承租方').AsString   := DBGrid1.Fields[1].Text ;
      SaveTable.FieldByName('客户编码').AsString := DBGrid1.Fields[2].Text  ;
      SaveTable.FieldByName('客户名称').AsString := DBGrid1.Fields[3].Text ;
      SaveTable.FieldByName('日期').AsString     := DBGrid1.Fields[4].Text  ;
      SaveTable.FieldByName('租赁项目').AsString := DBGrid1.Fields[5].Text  ;
      SaveTable.FieldByName('开始日期').AsString := DBGrid1.Fields[6].Text  ;
      SaveTable.FieldByName('到期日期').AsString := DBGrid1.Fields[7].Text  ;
      SaveTable.FieldByName('天数').AsString     := DBGrid1.Fields[8].Text  ;
      SaveTable.FieldByName('单位').AsString     := DBGrid1.Fields[9].Text  ;
      SaveTable.FieldByName('数量').AsString     := DBGrid1.Fields[10].Text  ;
      SaveTable.FieldByName('收费标准').AsString := DBGrid1.Fields[11].Text  ;
      SaveTable.FieldByName('金额').AsString     := DBGrid1.Fields[12].Text  ;
      SaveTable.FieldByName('金额大写').AsString := DBGrid1.Fields[13].Text  ;
      SaveTable.FieldByName('金额合计').AsString := DBGrid1.Fields[14].Text  ;
      SaveTable.FieldByName('备注').AsString     := DBGrid1.Fields[15].Text  ;
      SaveTable.FieldByName('开票人').AsString   := DBGrid1.Fields[16].Text  ;
      SaveTable.FieldByName('收款人').AsString   := DBGrid1.Fields[17].Text  ;
      SaveTable.Append ;
      SaveTable.Close ;
    end;
    CustomerData.FpZF.Delete ;
    Application.MessageBox(PChar('发票作废成功   ！'), PChar('提示'),MB_ICONINFORMATION);
    edit1.Text :='' ;
   end;
  end;
except
     Application.MessageBox(PChar('发票删除出现错误，没有成功作废  ！'), PChar('发票作废'),MB_OK +
  MB_ICONINFORMATION);
end;
end;

procedure TForm2.ComboBox3Exit(Sender: TObject);
begin
  edit1.SetFocus ;
end;

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
   Case combobox1.ItemIndex of
      0:
        {建筑业发票}
        begin
           Fppy := 'JzyFP';
        end;
      1:
        {其它服务业发票}
        begin
           Fppy := 'QtfwyFP';
        end;
      2:
        {转让不动产发票}
        begin
           Fppy := 'ZrbdcFP';
        end;
      3:
        {转让无形资产发票}
        begin
           Fppy := 'ZrwxzcFP';
        end;
      4:
        {租赁业发票}
        begin
           Fppy := 'ZlyFP';
        end;
    end;
end;

procedure TForm2.ComboBox1Exit(Sender: TObject);
begin
  edit1.SetFocus ;
end;

procedure TForm2.SeSkinRadioButton1Click(Sender: TObject);
begin
  edit1.MaxLength := 50 ;
end;

procedure TForm2.RadioButton2Click(Sender: TObject);
begin
   edit1.MaxLength := 5 ;
end;

procedure TForm2.ComboBox2Change(Sender: TObject);
begin
   Case combobox1.ItemIndex of
      0:
        {建筑业发票}
        begin
           Fppy := 'JzyFP';
        end;
      1:
        {其它服务业发票}
        begin
           Fppy := 'QtfwyFP';
        end;
      2:
        {转让不动产发票}
        begin
           Fppy := 'ZrbdcFP';
        end;
      3:
        {转让无形资产发票}
        begin
           Fppy := 'ZrwxzcFP';
        end;
      4:
        {租赁业发票}
        begin
           Fppy := 'ZlyFP';
        end;
    end;
end;

procedure TForm2.ComboBox2Exit(Sender: TObject);
begin
  edit1.SetFocus ;
end;

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
   edit1.MaxLength := 0 ;
end;

procedure TForm2.RadioButton3Click(Sender: TObject);
begin
   edit1.MaxLength := 0 ;
end;

end.
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -