unit u_cw_pingzheng_yt; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bsSkinCtrls, ComCtrls, bsSkinTabs, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, StdCtrls, wwdbdatetimepicker, RxLookup, DB, ADODB,FileCtrl, dxDBTLCl, dxGrClms, Mask, wwdbedit, Wwdotdot, Wwdbcomb, Grids, DBGrids, ExtCtrls, DBGridEh, kbmMemTable, DBTables, wwdblook, DBCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid; type Tfrm_cw_pingzheng_yt = class(TForm) t_op_seae: TADOQuery; t_op_seae1: TDataSource; t_cw_design: TADOQuery; t_cw_design1: TDataSource; t_op_seai: TADOQuery; t_op_seai1: TDataSource; t_op_airi1: TDataSource; t_op_airi: TADOQuery; t_op_aire: TADOQuery; t_op_aire1: TDataSource; t_ch_invoice: TADOQuery; t_ch_invoice1: TDataSource; bsSkinPanel2: TbsSkinPanel; bsSkinPageControl2: TbsSkinPageControl; tbbsVou: TbsSkinTabSheet; tbbalvou: TbsSkinTabSheet; bsSkinGroupBox2: TbsSkinGroupBox; bsSkinPanel10: TbsSkinPanel; Label25: TLabel; Label65: TLabel; Label26: TLabel; Label27: TLabel; Label28: TLabel; Edit9: TEdit; wwDBDateTimePicker17: TwwDBDateTimePicker; wwDBDateTimePicker18: TwwDBDateTimePicker; wwDBComboBox1: TwwDBComboBox; bsSkinPageControl1: TbsSkinPageControl; bsSkinTabSheet1: TbsSkinTabSheet; bsSkinPanel1: TbsSkinPanel; Label10: TLabel; Label3: TLabel; Label5: TLabel; Label8: TLabel; Label11: TLabel; wwDBDateTimePicker1: TwwDBDateTimePicker; Edit4: TEdit; wwDBDateTimePicker2: TwwDBDateTimePicker; Edit2: TEdit; wwDBDateTimePicker3: TwwDBDateTimePicker; wwDBDateTimePicker4: TwwDBDateTimePicker; bsSkinTabSheet2: TbsSkinTabSheet; bsSkinPanel4: TbsSkinPanel; Label2: TLabel; Label4: TLabel; Label6: TLabel; Label7: TLabel; Label9: TLabel; Label12: TLabel; wwDBDateTimePicker5: TwwDBDateTimePicker; Edit1: TEdit; wwDBDateTimePicker6: TwwDBDateTimePicker; Edit3: TEdit; wwDBDateTimePicker7: TwwDBDateTimePicker; wwDBDateTimePicker8: TwwDBDateTimePicker; bsSkinTabSheet3: TbsSkinTabSheet; bsSkinPanel6: TbsSkinPanel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; wwDBDateTimePicker9: TwwDBDateTimePicker; Edit5: TEdit; wwDBDateTimePicker10: TwwDBDateTimePicker; Edit6: TEdit; wwDBDateTimePicker11: TwwDBDateTimePicker; wwDBDateTimePicker12: TwwDBDateTimePicker; bsSkinTabSheet4: TbsSkinTabSheet; bsSkinPanel8: TbsSkinPanel; Label19: TLabel; Label20: TLabel; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; wwDBDateTimePicker13: TwwDBDateTimePicker; Edit7: TEdit; wwDBDateTimePicker14: TwwDBDateTimePicker; Edit8: TEdit; wwDBDateTimePicker15: TwwDBDateTimePicker; wwDBDateTimePicker16: TwwDBDateTimePicker; bsSkinPanel12: TbsSkinPanel; TBVouList: TbsSkinTabSheet; bsSkinPanel16: TbsSkinPanel; t_op_balance: TADOQuery; t_op_balance1: TDataSource; bsSkinButton5: TbsSkinButton; t_op_balanceDSDesigner: TStringField; t_op_balanceDSDesigner2: TStringField; t_op_balanceDSDesigner3: TStringField; t_op_balanceDSDesigner4: TStringField; t_op_balanceDSDesigner5: TStringField; t_op_balanceDSDesigner6: TStringField; t_op_balanceDSDesigner7: TBCDField; t_op_balanceDSDesigner8: TBCDField; t_op_balanceDSDesigner9: TBCDField; t_op_balanceDSDesigner10: TStringField; t_op_balanceDSDesigner11: TStringField; t_op_balanceDSDesigner12: TStringField; t_op_balanceDSDesigner13: TDateTimeField; t_op_balanceDSDesigner14: TBooleanField; t_op_balanceDSDesigner15: TStringField; t_op_balanceDSDesigner16: TStringField; t_op_balanceDSDesigner17: TDateTimeField; t_op_balanceDSDesigner18: TStringField; t_op_balanceDSDesigner19: TStringField; t_op_balanceDSDesigner20: TDateTimeField; t_op_balanceDSDesigner21: TStringField; t_op_balanceDSDesigner22: TBooleanField; t_op_balanceDSDesigner23: TStringField; bsSkinButton10: TbsSkinButton; bsSkinButton3: TbsSkinButton; bsSkinButton1: TbsSkinButton; bsSkinButton4: TbsSkinButton; bsSkinButton6: TbsSkinButton; bsSkinButton7: TbsSkinButton; bsSkinButton9: TbsSkinButton; bsSkinButton11: TbsSkinButton; bsSkinButton12: TbsSkinButton; bsSkinButton14: TbsSkinButton; bsSkinButton15: TbsSkinButton; bsSkinButton16: TbsSkinButton; bsSkinButton18: TbsSkinButton; bsSkinButton19: TbsSkinButton; bsSkinButton20: TbsSkinButton; bsSkinCheckRadioBox1: TbsSkinCheckRadioBox; bsSkinCheckRadioBox2: TbsSkinCheckRadioBox; bsSkinCheckRadioBox3: TbsSkinCheckRadioBox; bsSkinCheckRadioBox4: TbsSkinCheckRadioBox; bsSkinCheckRadioBox5: TbsSkinCheckRadioBox; bsSkinPanel3: TbsSkinPanel; DatabaseVouitems: TDatabase; Label30: TLabel; wwDBDateTimePicker19: TwwDBDateTimePicker; Label31: TLabel; wwDBDateTimePicker20: TwwDBDateTimePicker; Label33: TLabel; EditMblNo: TEdit; EditOrdNoTo: TEdit; Label34: TLabel; EditOrdNoFrm: TEdit; Label35: TLabel; bsSkinButton2: TbsSkinButton; bsSkinButton8: TbsSkinButton; bsSkinButton13: TbsSkinButton; bsSkinPanel7: TbsSkinPanel; Splitter1: TSplitter; bsSkinPanel9: TbsSkinPanel; DBGridEh2: TDBGridEh; bsSkinPanel11: TbsSkinPanel; DBGridCarriageSum: TDBGridEh; dsrvouitems: TDataSource; dsrVou: TDataSource; memTblVou: TkbmMemTable; qryVouitems: TADOQuery; Query1: TQuery; bsSkinCheckRadioBox6: TbsSkinCheckRadioBox; RxDBLookupCombo2: TRxDBLookupCombo; Label29: TLabel; wwDBDateTimePicker21: TwwDBDateTimePicker; Label36: TLabel; RxDBLookupCombo6: TRxDBLookupCombo; SaveDialog1: TSaveDialog; bsSkinButton17: TbsSkinButton; bsSkinButton21: TbsSkinButton; bsSkinButton22: TbsSkinButton; bsSkinButton23: TbsSkinButton; bsSkinButton24: TbsSkinButton; bsSkinButton25: TbsSkinButton; Label37: TLabel; Edit10: TEdit; Label38: TLabel; Edit11: TEdit; Label39: TLabel; RxDBLookupCombo4: TRxDBLookupCombo; Label40: TLabel; RxDBLookupCombo1: TRxDBLookupCombo; Label1: TLabel; Label41: TLabel; RxDBLookupCombo3: TRxDBLookupCombo; Label42: TLabel; RxDBLookupCombo5: TRxDBLookupCombo; Label32: TLabel; RxDBLookupCombo7: TRxDBLookupCombo; Label43: TLabel; Edit12: TEdit; Label44: TLabel; RxDBLookupCombo8: TRxDBLookupCombo; Label45: TLabel; RxDBLookupCombo9: TRxDBLookupCombo; Label46: TLabel; RxDBLookupCombo10: TRxDBLookupCombo; Edit13: TEdit; Label47: TLabel; Label48: TLabel; RxDBLookupCombo11: TRxDBLookupCombo; Label49: TLabel; RxDBLookupCombo12: TRxDBLookupCombo; Label50: TLabel; RxDBLookupCombo13: TRxDBLookupCombo; Edit14: TEdit; Label51: TLabel; Label52: TLabel; RxDBLookupCombo14: TRxDBLookupCombo; Label53: TLabel; RxDBLookupCombo15: TRxDBLookupCombo; Label54: TLabel; RxDBLookupCombo16: TRxDBLookupCombo; Edit15: TEdit; Label55: TLabel; Label56: TLabel; Edit16: TEdit; Label57: TLabel; Edit17: TEdit; Label58: TLabel; Edit18: TEdit; Label59: TLabel; Edit19: TEdit; Label60: TLabel; Edit20: TEdit; Label61: TLabel; Edit21: TEdit; Label62: TLabel; Edit22: TEdit; Label63: TLabel; Edit23: TEdit; bsSkinCheckRadioBox7: TbsSkinCheckRadioBox; t_op_balanceDSDesigner24: TBCDField; t_op_balanceDSDesigner25: TBCDField; t_op_balanceDSDesigner26: TStringField; t_op_balanceDSDesigner27: TStringField; t_op_balanceDSDesigner28: TStringField; SQLConnectionAcc: TADOConnection; QryAcc: TADOQuery; tblObj: TADOTable; tblObjFClsID: TIntegerField; tblObjFObjID: TWideStringField; tblObjFObjName: TWideStringField; tblObjFUnit: TWideStringField; tblObjFDeleted: TBooleanField; tblObjFCompanyID: TWideStringField; tblObjFParentID: TWideStringField; tblObjFLevel: TIntegerField; tblObjFDetail: TBooleanField; tblObjFFullPath: TWideStringField; tblObjA1: TBooleanField; tblObjA2: TBooleanField; tblObjA3: TBooleanField; tblObjA4: TBooleanField; tblObjA5: TBooleanField; tblObjA6: TBooleanField; tblObjA7: TBooleanField; tblObjA8: TBooleanField; tblObjA9: TBooleanField; tblObjA10: TBooleanField; tblObjA11: TBooleanField; tblObjA12: TBooleanField; tblObjA13: TBooleanField; tblVouitems: TTable; bsSkinTabSheet5: TbsSkinTabSheet; bsSkinPanel5: TbsSkinPanel; Label64: TLabel; Label66: TLabel; Label67: TLabel; Label70: TLabel; Label73: TLabel; Label75: TLabel; Label76: TLabel; wwDBDateTimePicker22: TwwDBDateTimePicker; Edit24: TEdit; wwDBDateTimePicker23: TwwDBDateTimePicker; Edit25: TEdit; bsSkinButton26: TbsSkinButton; bsSkinButton28: TbsSkinButton; bsSkinCheckRadioBox8: TbsSkinCheckRadioBox; Edit26: TEdit; Edit27: TEdit; Edit28: TEdit; bsSkinButton27: TbsSkinButton; t_Accitems: TADOQuery; t_op_balanceDSDesigner29: TStringField; t_op_balanceDSDesigner30: TBCDField; tab4: TbsSkinTabSheet; bsSkinPanel13: TbsSkinPanel; Label68: TLabel; Label69: TLabel; Label71: TLabel; Label72: TLabel; Label74: TLabel; Label77: TLabel; Label78: TLabel; Label79: TLabel; wwDBDateTimePicker24: TwwDBDateTimePicker; wwDBDateTimePicker25: TwwDBDateTimePicker; Edit29: TEdit; Edit30: TEdit; Edit31: TEdit; bsSkinButton29: TbsSkinButton; bsSkinCheckRadioBox9: TbsSkinCheckRadioBox; RxDBLookupCombo17: TRxDBLookupCombo; RxDBLookupCombo18: TRxDBLookupCombo; Edit32: TEdit; DBGridEh8: TDBGridEh; v_vouitems: TADOQuery; v_vouitems1: TDataSource; Edit33: TEdit; Label80: TLabel; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; Label81: TLabel; Label82: TLabel; Edit34: TEdit; wwDBLookupCombo49: TwwDBLookupCombo; Label83: TLabel; wwDBLookupCombo1: TwwDBLookupCombo; Label84: TLabel; Edit35: TEdit; qryVouitemsORDNO: TIntegerField; qryVouitemsITEMNO: TIntegerField; qryVouitemsACCID: TStringField; qryVouitemsPACCID: TStringField; qryVouitemsACCNAME: TStringField; qryVouitemsPROPERTY: TSmallintField; qryVouitemsGRADE: TSmallintField; qryVouitemsDC: TStringField; qryVouitemsSUBLEGTYPE: TStringField; qryVouitemsAMTDR: TFloatField; qryVouitemsAMTCR: TFloatField; qryVouitemsFCY: TStringField; qryVouitemsFCYNO: TStringField; qryVouitemsFCYEXRATE: TFloatField; qryVouitemsFCYDR: TFloatField; qryVouitemsFCYCR: TFloatField; qryVouitemsQTY: TStringField; qryVouitemsQTYSPECS: TStringField; qryVouitemsQTYUNIT: TStringField; qryVouitemsPRICEDR: TFloatField; qryVouitemsPRICECR: TFloatField; qryVouitemsQTYDR: TFloatField; qryVouitemsQTYCR: TFloatField; qryVouitemsEXPLAN: TStringField; qryVouitemsVERIFYED: TStringField; qryVouitemsVERIFYLASTBLC: TFloatField; qryVouitemsDEPTACC: TStringField; qryVouitemsEMPLACC: TStringField; qryVouitemsCORPACC: TStringField; qryVouitemsITEMACC: TStringField; qryVouitemsDEPTID: TStringField; qryVouitemsEMPLID: TStringField; qryVouitemsPITEMID: TIntegerField; qryVouitemsITEMID: TIntegerField; qryVouitemsFIELD1: TStringField; qryVouitemsFIELD2: TStringField; qryVouitemsFIELD3: TStringField; qryVouitemsFIELD4: TStringField; qryVouitemsFIELD5: TStringField; qryVouitemsFIELD6: TStringField; qryVouitemsFIELD7: TStringField; qryVouitemsCF: TSmallintField; qryVouitemsCUSTBE: TStringField; qryVouitemsCORPBF: TStringField; qryVouitemsSTATUS: TSmallintField; qryVouitemsBSNO: TStringField; qryVouitemsMBLNO: TStringField; qryVouitemsFSETTLCODE: TStringField; qryVouitemsFSETTLENO: TStringField; Panel1: TPanel; qryVouitems_Sum: TADOQuery; qryVouitems_Sum1: TDataSource; DBGridEh9: TDBGridEh; qryVouitemsSNAME: TStringField; t_corps: TADOQuery; qryVouitemsCORPID: TStringField; t_corps1: TDataSource; qryVouitemsCNAME: TStringField; bsSkinButton30: TbsSkinButton; bsSkinButton31: TbsSkinButton; bsSkinButton32: TbsSkinButton; bsSkinButton33: TbsSkinButton; qryVouitemsACCIDLK: TStringField; bsSkinButton34: TbsSkinButton; dxDBGrid1: TdxDBGrid; dxDBGrid1Column1: TdxDBGridColumn; dxDBGrid1Column2: TdxDBGridColumn; dxDBGrid1Column3: TdxDBGridColumn; dxDBGrid1Column4: TdxDBGridColumn; dxDBGrid1Column5: TdxDBGridColumn; dxDBGrid1Column6: TdxDBGridColumn; dxDBGrid1Column7: TdxDBGridColumn; dxDBGrid1Column8: TdxDBGridColumn; dxDBGrid1Column9: TdxDBGridColumn; dxDBGrid1Column10: TdxDBGridColumn; dxDBGrid1Column11: TdxDBGridColumn; dxDBGrid1Column12: TdxDBGridColumn; dxDBGrid1Column13: TdxDBGridColumn; dxDBGrid1Column14: TdxDBGridColumn; dxDBGrid1Column15: TdxDBGridColumn; bsSkinTabSheet6: TbsSkinTabSheet; bsSkinPanel14: TbsSkinPanel; Label85: TLabel; Label86: TLabel; Label87: TLabel; Label88: TLabel; Label89: TLabel; Label90: TLabel; Label91: TLabel; wwDBDateTimePicker26: TwwDBDateTimePicker; Edit36: TEdit; wwDBDateTimePicker27: TwwDBDateTimePicker; Edit37: TEdit; bsSkinButton35: TbsSkinButton; bsSkinButton36: TbsSkinButton; bsSkinCheckRadioBox10: TbsSkinCheckRadioBox; Edit38: TEdit; Edit39: TEdit; Edit40: TEdit; bsSkinButton37: TbsSkinButton; dxDBGrid3: TdxDBGrid; dxDBGridColumn1: TdxDBGridColumn; dxDBGridColumn2: TdxDBGridColumn; dxDBGridColumn3: TdxDBGridColumn; dxDBGridColumn4: TdxDBGridColumn; dxDBGridColumn5: TdxDBGridColumn; dxDBGridColumn6: TdxDBGridColumn; dxDBGridColumn7: TdxDBGridColumn; dxDBGridColumn8: TdxDBGridColumn; dxDBGridColumn9: TdxDBGridColumn; dxDBGridColumn10: TdxDBGridColumn; dxDBGridColumn11: TdxDBGridColumn; dxDBGridColumn12: TdxDBGridColumn; dxDBGridColumn13: TdxDBGridColumn; dxDBGridColumn14: TdxDBGridColumn; dxDBGridColumn15: TdxDBGridColumn; t_ch_invoice_hexiao: TADOQuery; t_ch_invoice_hexiao1: TDataSource; dxDBGrid3Column16: TdxDBGridColumn; dxDBGrid3Column17: TdxDBGridColumn; Label92: TLabel; Label93: TLabel; wwDBDateTimePicker28: TwwDBDateTimePicker; wwDBDateTimePicker29: TwwDBDateTimePicker; Label94: TLabel; Label95: TLabel; wwDBDateTimePicker30: TwwDBDateTimePicker; wwDBDateTimePicker31: TwwDBDateTimePicker; Label96: TLabel; Edit41: TEdit; Label97: TLabel; Edit42: TEdit; dxDBGrid4: TdxDBGrid; dxDBGrid4Column1: TdxDBGridColumn; dxDBGrid4Column2: TdxDBGridColumn; dxDBGrid4Column3: TdxDBGridColumn; dxDBGrid4Column4: TdxDBGridColumn; dxDBGrid4Column5: TdxDBGridColumn; dxDBGrid4Column6: TdxDBGridColumn; dxDBGrid4Column7: TdxDBGridColumn; dxDBGrid4Column8: TdxDBGridColumn; dxDBGrid4Column9: TdxDBGridColumn; dxDBGrid4Column10: TdxDBGridColumn; dxDBGrid4Column11: TdxDBGridColumn; dxDBGrid4Column12: TdxDBGridColumn; dxDBGrid4Column13: TdxDBGridColumn; dxDBGrid4Column14: TdxDBGridColumn; dxDBGrid4Column15: TdxDBGridColumn; dxDBGrid4Column16: TdxDBGridColumn; dxDBGrid4Column17: TdxDBGridColumn; dxDBGrid4Column18: TdxDBGridColumn; dxDBGrid4Column19: TdxDBGridColumn; dxDBGrid4Column20: TdxDBGridColumn; dxDBGrid4Column21: TdxDBGridColumn; dxDBGrid4Column22: TdxDBGridColumn; dxDBGrid4Column23: TdxDBGridColumn; dxDBGrid5: TdxDBGrid; dxDBGridColumn16: TdxDBGridColumn; dxDBGridColumn17: TdxDBGridColumn; dxDBGridColumn18: TdxDBGridColumn; dxDBGridColumn19: TdxDBGridColumn; dxDBGridColumn20: TdxDBGridColumn; dxDBGridColumn21: TdxDBGridColumn; dxDBGridColumn22: TdxDBGridColumn; dxDBGridColumn23: TdxDBGridColumn; dxDBGridColumn24: TdxDBGridColumn; dxDBGridColumn25: TdxDBGridColumn; dxDBGridColumn26: TdxDBGridColumn; dxDBGridColumn27: TdxDBGridColumn; dxDBGridColumn28: TdxDBGridColumn; dxDBGridColumn29: TdxDBGridColumn; dxDBGridColumn30: TdxDBGridColumn; dxDBGridColumn31: TdxDBGridColumn; dxDBGridColumn32: TdxDBGridColumn; dxDBGridColumn33: TdxDBGridColumn; dxDBGridColumn34: TdxDBGridColumn; dxDBGridColumn35: TdxDBGridColumn; dxDBGridColumn36: TdxDBGridColumn; dxDBGridColumn37: TdxDBGridColumn; dxDBGridColumn38: TdxDBGridColumn; dxDBGrid6: TdxDBGrid; dxDBGridColumn39: TdxDBGridColumn; dxDBGridColumn40: TdxDBGridColumn; dxDBGridColumn41: TdxDBGridColumn; dxDBGridColumn42: TdxDBGridColumn; dxDBGridColumn43: TdxDBGridColumn; dxDBGridColumn44: TdxDBGridColumn; dxDBGridColumn45: TdxDBGridColumn; dxDBGridColumn46: TdxDBGridColumn; dxDBGridColumn47: TdxDBGridColumn; dxDBGridColumn48: TdxDBGridColumn; dxDBGridColumn49: TdxDBGridColumn; dxDBGridColumn50: TdxDBGridColumn; dxDBGridColumn51: TdxDBGridColumn; dxDBGridColumn52: TdxDBGridColumn; dxDBGridColumn53: TdxDBGridColumn; dxDBGridColumn54: TdxDBGridColumn; dxDBGridColumn56: TdxDBGridColumn; dxDBGridColumn60: TdxDBGridColumn; dxDBGridColumn61: TdxDBGridColumn; dxDBGrid6Column20: TdxDBGridColumn; dxDBGrid6Column21: TdxDBGridColumn; dxDBGrid7: TdxDBGrid; dxDBGridColumn55: TdxDBGridColumn; dxDBGridColumn57: TdxDBGridColumn; dxDBGridColumn58: TdxDBGridColumn; dxDBGridColumn59: TdxDBGridColumn; dxDBGridColumn62: TdxDBGridColumn; dxDBGridColumn63: TdxDBGridColumn; dxDBGridColumn64: TdxDBGridColumn; dxDBGridColumn65: TdxDBGridColumn; dxDBGridColumn66: TdxDBGridColumn; dxDBGridColumn67: TdxDBGridColumn; dxDBGridColumn68: TdxDBGridColumn; dxDBGridColumn69: TdxDBGridColumn; dxDBGridColumn70: TdxDBGridColumn; dxDBGridColumn71: TdxDBGridColumn; dxDBGridColumn72: TdxDBGridColumn; dxDBGridColumn73: TdxDBGridColumn; dxDBGridColumn74: TdxDBGridColumn; dxDBGridColumn75: TdxDBGridColumn; dxDBGridColumn76: TdxDBGridColumn; dxDBGridColumn77: TdxDBGridColumn; dxDBGridColumn78: TdxDBGridColumn; dxDBGrid8: TdxDBGrid; t_op_balance_items: TADOQuery; t_op_balance_items1: TDataSource; dxDBGrid2: TdxDBGrid; dxDBGridColumn105: TdxDBGridColumn; dxDBGridColumn106: TdxDBGridColumn; dxDBGridColumn107: TdxDBGridColumn; dxDBGridColumn108: TdxDBGridColumn; dxDBGridCheckColumn2: TdxDBGridCheckColumn; dxDBGridColumn109: TdxDBGridColumn; dxDBGridColumn110: TdxDBGridColumn; dxDBGridColumn111: TdxDBGridColumn; dxDBGridColumn112: TdxDBGridColumn; dxDBGridColumn113: TdxDBGridColumn; dxDBGridColumn114: TdxDBGridColumn; dxDBGridColumn115: TdxDBGridColumn; dxDBGridColumn116: TdxDBGridColumn; dxDBGridColumn117: TdxDBGridColumn; dxDBGridColumn118: TdxDBGridColumn; dxDBGridColumn119: TdxDBGridColumn; dxDBGridColumn120: TdxDBGridColumn; dxDBGridColumn121: TdxDBGridColumn; dxDBGridColumn122: TdxDBGridColumn; dxDBGridColumn123: TdxDBGridColumn; dxDBGridColumn124: TdxDBGridColumn; dxDBGridColumn125: TdxDBGridColumn; dxDBGridColumn126: TdxDBGridColumn; dxDBGridColumn127: TdxDBGridColumn; dxDBGridColumn128: TdxDBGridColumn; dxDBGridColumn129: TdxDBGridColumn; dxDBGridColumn130: TdxDBGridColumn; dxDBGrid8Column1: TdxDBGridColumn; dxDBGrid8Column2: TdxDBGridColumn; dxDBGrid8Column3: TdxDBGridColumn; dxDBGrid8Column4: TdxDBGridColumn; dxDBGrid8Column5: TdxDBGridColumn; dxDBGrid4Column24: TdxDBGridColumn; dxDBGrid4Column25: TdxDBGridColumn; dxDBGrid4Column26: TdxDBGridColumn; dxDBGrid4Column27: TdxDBGridColumn; dxDBGrid4Column28: TdxDBGridColumn; dxDBGrid4Column29: TdxDBGridColumn; procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure bsSkinPageControl1Change(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsSkinButton5Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); procedure bsSkinButton7Click(Sender: TObject); procedure bsSkinButton8Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinButton11Click(Sender: TObject); procedure bsSkinButton14Click(Sender: TObject); procedure bsSkinButton15Click(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure bsSkinButton18Click(Sender: TObject); procedure bsSkinButton20Click(Sender: TObject); procedure DBGridEh2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); procedure DBGridEh4DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); procedure DBGridEh5DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); procedure DBGridEh6DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); procedure DBGridEh7DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); procedure bsSkinButton12Click(Sender: TObject); procedure bsSkinButton16Click(Sender: TObject); procedure bsSkinButton17Click(Sender: TObject); procedure bsSkinButton21Click(Sender: TObject); procedure bsSkinButton22Click(Sender: TObject); procedure bsSkinButton23Click(Sender: TObject); procedure bsSkinButton24Click(Sender: TObject); procedure bsSkinButton13Click(Sender: TObject); procedure bsSkinButton25Click(Sender: TObject); procedure Edit12KeyPress(Sender: TObject; var Key: Char); procedure Edit10KeyPress(Sender: TObject; var Key: Char); procedure SQLConnectionAccBeforeConnect(Sender: TObject); procedure SQLConnectionAcc2BeforeConnect(Sender: TObject); procedure bsSkinButton26Click(Sender: TObject); procedure DBGridEh3DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); procedure bsSkinButton28Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton29Click(Sender: TObject); procedure ADOConnection1BeforeConnect(Sender: TObject); procedure DBGridEh1DblClick(Sender: TObject); procedure DBGridEh4DblClick(Sender: TObject); procedure DBGridEh5DblClick(Sender: TObject); procedure DBGridEh6DblClick(Sender: TObject); procedure qryVouitemsACCIDChange(Sender: TField); procedure qryVouitemsAfterPost(DataSet: TDataSet); procedure qryVouitemsBeforeEdit(DataSet: TDataSet); procedure qryVouitemsBeforeDelete(DataSet: TDataSet); procedure bsSkinButton33Click(Sender: TObject); procedure bsSkinButton32Click(Sender: TObject); procedure bsSkinButton31Click(Sender: TObject); procedure bsSkinButton30Click(Sender: TObject); procedure bsSkinButton19Click(Sender: TObject); procedure cxGrid1DBTableView1CustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure bsSkinButton34Click(Sender: TObject); procedure bsSkinButton35Click(Sender: TObject); procedure bsSkinButton27Click(Sender: TObject); procedure bsSkinButton37Click(Sender: TObject); procedure bsSkinButton36Click(Sender: TObject); procedure dxDBGrid4DblClick(Sender: TObject); procedure dxDBGrid6DblClick(Sender: TObject); procedure dxDBGrid4CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGrid2CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGrid3CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGrid5CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); private procedure CreateMemTbl; function NewDrCrVou(fDataSet:TDataSet;BsType:integer;Mblno:String;voudate:TDate;BillNos:string):String; function NewDCVou(fDataSet:TDataSet;ZDR:String;voudate:TDatetime):Boolean; function NewDCVouvat(fDataSet:TDataSet;ZDR:String;voudate:TDatetime):Boolean; function NewDCVou_Patch(fDataSet:TDataSet;ZDR:String;voudate:TDatetime):Boolean; function NewDrCrInv(fDataSet:TDataSet;Mblno,ZDR:String;voudate:TDate):String; function NewDrCrInvCr(fDataSet:TDataSet;Mblno,ZDR:String;voudate:TDate):String; function InvoiceDr(fDataSet:TDataSet;ZDR:String;voudate:TDatetime):Boolean; function InvoiceCr(fDataSet:TDataSet;ZDR:String;voudate:TDatetime):Boolean; function IncomeCost(fDataSet:TDataSet;explan,mblno,corps,Depts,sales:string;ProfitFull,ICUSD:Integer;Dr,Cr,USDDr,USDCr,UTORDr,UTORCr,VatAmtCr:Double;sTrade:string;vatrate:Double):String; procedure InsertItems(Accid:string;AmtDr,AmtCr:Double;FCYNO:string;FCYDr,FCYCr:Double;explan,mblno,corps,Depts,sales,DC:string); procedure InsertItemsVat(Accid:string;AmtDr,AmtCr,VatAmtCr:Double;FCYNO:string;FCYDr,FCYCr:Double;explan,mblno,corps,Depts,sales,DC:string;vatrate:Double); function GetCustID(CorpID,DC:String):String; function GetEmpID(EmplName:String):String; function GetDeptID(DeptName:String):String; function GetEmpDeptID(EmplName:String):String; function GetBankAccid(fdataSet:TDataSet;bank:string):String; procedure NewDCVou_select; procedure NewDCVou_One; { Private declarations } public function cw_client_yingshou_error():boolean; function cw_client_yingfu_error():boolean; function cw_client_shouru_error():boolean; function cw_client_chengben_error():boolean; procedure cw_add_1(op_type:integer); function get_str(i:integer;Dc:string;CorpName:string;data:TDataSet):widestring; function get_strProfit(i:integer;data:TDataSet):widestring; function get_strDc(data:TDataSet):widestring; function get_strInvoice(data:TDataSet):widestring; function get_billStr(bsNo:string):string; procedure kingdee; procedure U8; procedure U8103; procedure Sybase; procedure NewBsVoucher(bstype:integer;TableName,BsField:string;Dbgrid1:TDxDBGrid;aDataset:TADOQuery); function GetNoCorpNo(BillNos:string): String; function GetInvoiceNoCorpNo(BillNos:string): String; function getstrfromdataset(dataset:TDataSet;formatstr:String):string; function GetBSNoCorpNo(BillNos:string): String; function checkbsVoucher(Dbgrid1:TDxDBGrid;aDataset:TADOQuery):string; { Public declarations } end; var frm_cw_pingzheng_yt: Tfrm_cw_pingzheng_yt; frm_cw_pingzheng_open:boolean; cw_load,cw_load_group:integer; frm_cw_load_iflog:boolean; implementation uses u_main, my_sys_function, dmAccu, u_data_share, VouItemStlu, u_sys_progress, u_ch_piliang_seae, u_ch_piliang_seai, u_ch_piliang_aire, u_ch_piliang_airi; {$R *.dfm} function Tfrm_cw_pingzheng_yt.GetBSNoCorpNo(BillNos:string): String; var aAdoQuery:TAdoQuery; begin result:=''; aAdoQuery:=CreateAdoQuery; try with aAdoQuery do begin Close;sql.Clear; sql.Add('SELECT distinct t_ch_fee.客户名称,t_crm_Client.财务应收帐款代码'); sql.Add('From t_ch_fee'); sql.Add('Left Join t_crm_Client on t_ch_fee.客户名称=t_crm_Client.客户简称'); sql.Add('where t_ch_fee.类型=:类型 and t_ch_fee.编号='''+BillNos+''''); Parameters.ParamByName('类型').Value:='收'; Open;First; // ShowMessage(sql.text); while not Eof do begin if Trim(FieldByName('财务应收帐款代码').AsString)='' then begin if result='' then result:=FieldByName('客户名称').AsString+' 应收' else result:=result+#13#10+FieldByName('客户名称').AsString+' 应收'; end; Next; end; end; with aAdoQuery do begin Close;sql.Clear; sql.Add('SELECT t_ch_fee.客户名称,t_crm_Client.财务应付帐款代码'); sql.Add('From t_ch_fee'); sql.Add('Left Join t_crm_Client on t_ch_fee.客户名称=t_crm_Client.客户简称'); sql.Add('where t_ch_fee.类型=:类型 and t_ch_fee.编号='''+BillNos+''''); Parameters.ParamByName('类型').Value:='付'; Open;First; while not Eof do begin if Trim(FieldByName('财务应付帐款代码').AsString)='' then begin if result='' then result:=FieldByName('客户名称').AsString+' 应付' else result:=result+#13#10+FieldByName('客户名称').AsString+' 应付'; end; Next; end; end; // showmessage(result); finally FreeAndNil(aAdoQuery); end; end; function Tfrm_cw_pingzheng_yt.checkbsVoucher(Dbgrid1:TDxDBGrid;aDataset:TADOQuery):string; var aQuery:TADOQuery; i:Integer; s:string; begin Result:=''; s:=''; if Dbgrid1.SelectedCount>1 then begin for i:=0 to Dbgrid1.SelectedCount-1 do begin aDataset.GotoBookmark(Pointer(Dbgrid1.selectedrows[I])); s:=GetBSNoCorpNo(aDataset.fieldbyname('编号').AsString); if s<>'' then begin // showmessage(s+#13#10+'财务代码没有设置'); Result:=Result+#13#10+s; end; end; end else begin s:=GetBSNoCorpNo(aDataset.fieldbyname('编号').AsString); if s<>'' then begin // showmessage(s+#13#10+'财务代码没有设置'); Result:=Result+#13#10+s; end; end; end; function Tfrm_cw_pingzheng_yt.getstrfromdataset(dataset:TDataSet;formatstr:String):string; var i:integer; str:string; begin str:=formatstr; for i:=0 to dataset.FieldCount-1 do begin str:=StringReplace(str,'['+dataset.Fields[i].FieldName+']',dataset.Fields[i].asstring,[]); end; result:=str; end; function Tfrm_cw_pingzheng_yt.GetNoCorpNo(BillNos:string): String; var aAdoQuery:TAdoQuery; begin result:=''; aAdoQuery:=CreateAdoQuery; with aAdoQuery do try Close;sql.Clear; sql.Add('Select distinct v_fee_balance_items.客户名称,t_crm_Client.财务应收帐款代码'); sql.Add('from v_fee_balance_items '); sql.Add('Left Join t_crm_Client on v_fee_balance_items.客户名称=t_crm_Client.客户简称'); sql.Add('where v_fee_balance_items.收付=:类型 and v_fee_balance_items.工作编号='''+BillNos+''''); Parameters.ParamByName('类型').Value:='收'; Open;First; while not Eof do begin if Trim(FieldByName('财务应收帐款代码').AsString)='' then begin if result='' then result:=FieldByName('客户名称').AsString+' 应收' else result:=result+#13#10+FieldByName('客户名称').AsString+' 应收'; end; Next; end; Close;sql.Clear; sql.Add('Select distinct v_fee_balance_items.客户名称,t_crm_Client.财务应付帐款代码'); sql.Add('from v_fee_balance_items '); sql.Add('Left Join t_crm_Client on v_fee_balance_items.客户名称=t_crm_Client.客户简称'); sql.Add('where v_fee_balance_items.收付=:类型 and v_fee_balance_items.工作编号='''+BillNos+''''); Parameters.ParamByName('类型').Value:='付'; Open;First; while not Eof do begin if Trim(FieldByName('财务应付帐款代码').AsString)='' then begin if result='' then result:=FieldByName('客户名称').AsString+'应付' else result:=result+#13#10+FieldByName('客户名称').AsString+'应付'; end; Next; end; finally FreeAndNil(aAdoQuery); end; end; function Tfrm_cw_pingzheng_yt.GetInvoiceNoCorpNo(BillNos:string): String; var aAdoQuery:TAdoQuery; begin result:=''; aAdoQuery:=CreateAdoQuery; with aAdoQuery do try Close;sql.Clear; sql.Add('Select distinct v_fee_do_bscard.客户名称,t_crm_Client.财务应收帐款代码'); sql.Add('from v_fee_do_bscard '); sql.Add('Left Join t_crm_Client on v_fee_do_bscard.客户名称=t_crm_Client.客户简称'); sql.Add('where v_fee_do_bscard.类型=:类型 and v_fee_do_bscard.工作编号='''+BillNos+''''); Parameters.ParamByName('类型').Value:='收'; Open;First; while not Eof do begin if Trim(FieldByName('财务应收帐款代码').AsString)='' then begin if result='' then result:=FieldByName('客户名称').AsString+' 应收' else result:=result+#13#10+FieldByName('客户名称').AsString+' 应收'; end; Next; end; Close;sql.Clear; sql.Add('Select distinct v_fee_do_bscard.客户名称,t_crm_Client.财务应付帐款代码'); sql.Add('from v_fee_do_bscard '); sql.Add('Left Join t_crm_Client on v_fee_do_bscard.客户名称=t_crm_Client.客户简称'); sql.Add('where v_fee_do_bscard.类型=:类型 and v_fee_do_bscard.工作编号='''+BillNos+''''); Parameters.ParamByName('类型').Value:='付'; Open;First; while not Eof do begin if Trim(FieldByName('财务应付帐款代码').AsString)='' then begin if result='' then result:=FieldByName('客户名称').AsString+'应付' else result:=result+#13#10+FieldByName('客户名称').AsString+'应付'; end; Next; end; finally FreeAndNil(aAdoQuery); end; end; function Tfrm_cw_pingzheng_yt.GetCustID(CorpID,DC:String):String; var i:integer; aQuery:TADOQuery; begin aQuery:=createADOQuery; with aQuery do try Close;SQL.Clear; SQL.Add('select 财务应收帐款代码,财务应付帐款代码 from t_crm_client where 客户简称='''+CorpID+''''); Open; if DC='收' then Result:=fieldByName('财务应收帐款代码').AsString else Result:=fieldByName('财务应付帐款代码').AsString; if result='' then begin showmessage(CorpID+' '+DC+' '+'财务代码为空！'); Abort; end; finally FreeAndNil(aQuery); end; end; function Tfrm_cw_pingzheng_yt.GetEmpID(EmplName:String):String; begin with dmAcc.tempQuery do try Close;SQL.Clear; SQL.Add('select 财务软件代码 from t_sys_employee where 姓名='''+EmplName+''''); Open; if not FieldByName('财务软件代码').IsNull then Result:=FieldByName('财务软件代码').AsString else Result:='0'; finally Close; end; end; function Tfrm_cw_pingzheng_yt.GetDeptID(DeptName:String):String; var aQry:TAdoQuery; begin aQry:=CreateadoQuery; try aQry.Close; aQry.SQL.Clear; aQry.sql.add('select 财务软件代码 from t_sys_department where 部门名称='''+DeptName+''''); aQry.Open; result:=aQry.fieldByName('财务软件代码').asstring; finally FreeAndNil(aQry); end; end; function Tfrm_cw_pingzheng_yt.GetEmpDeptID(EmplName:String):String; var aQry:TAdoQuery; begin aQry:=CreateadoQuery; try aQry.Close; aQry.SQL.Clear; aQry.sql.add('select e.部门名称,d.财务软件代码 from t_sys_employee e left join t_sys_department d on (d.部门名称=e.部门名称) where e.姓名='''+EmplName+''''); aQry.Open; result:=aQry.fieldByName('财务软件代码').asstring; finally FreeAndNil(aQry); end; end; function Tfrm_cw_pingzheng_yt.GetBankAccid(fdataSet:TDataSet;bank:string):String; var aQuery:TAdoQuery; begin if fdataSet.FieldByName('结算方式').AsString='现金' then if strtobool(get_parameters_value(83,'false')) then begin result:=t_cw_design.FieldByName('应收核算一').AsString; end else begin aQuery:=CreateAdoQuery; with aQuery do try Close;sql.Clear; sql.Add('select 财务软件代码 from t_sys_bank'); sql.Add('where 代码='''+fDataSet.fieldbyname('银行代码').AsString+''''); Open; if Recordcount<>0 then result:=fieldbyname('财务软件代码').AsString else result:=t_cw_design.FieldByName('应收核算一').AsString; finally freeAndNil(aQuery); end; // result:=t_cw_design.FieldByName('应收核算一').AsString; end else begin if strtobool(get_parameters_value(83,'false')) then begin aQuery:=CreateAdoQuery; with aQuery do try Close;sql.Clear; sql.Add('select 财务软件代码 from t_sys_bank'); if bank='USD' then sql.Add('where 代码='''+fDataSet.fieldbyname('美元银行代码').AsString+'''') else sql.Add('where 代码='''+fDataSet.fieldbyname('银行代码').AsString+''''); Open; if Recordcount<>0 then result:=fieldbyname('财务软件代码').AsString else result:=''; finally freeAndNil(aQuery); end; end else begin aQuery:=CreateAdoQuery; with aQuery do try Close;sql.Clear; sql.Add('select 财务软件代码 from t_sys_bank'); sql.Add('where 代码='''+fDataSet.fieldbyname('银行代码').AsString+''''); Open; if Recordcount<>0 then result:=fieldbyname('财务软件代码').AsString else result:=''; finally freeAndNil(aQuery); end; end; begin end; end; end; procedure Tfrm_cw_pingzheng_yt.InsertItems(Accid:string;AmtDr,AmtCr:Double;FCYNO:string;FCYDr,FCYCr:Double;explan,mblno,corps,Depts,sales,DC:string); function GetEmpID(EmplName:String):String; begin with dmAcc.tempQuery do try Close;SQL.Clear; SQL.Add('select 财务软件代码 from t_sys_employee where 姓名='''+EmplName+''''); Open; if not FieldByName('财务软件代码').IsNull then Result:=FieldByName('财务软件代码').AsString else Result:='0'; finally Close; end; end; begin dmAcc.AdotblVouItems.Insert; if FCYDr<>0 then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=StrToFloatDef(FormatFloat('0.0000;-0.0000;0.0', AmtDr/FCYDr), 0) else if FCYCr<>0 then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=StrToFloatDef(FormatFloat('0.0000;-0.0000;0.0', AmtCr/FCYCr), 0) else dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:=FCYNO; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=FCYDr; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=FCYCr; // dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=Accid; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=AmtDr; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=AmtCr; // ShowMessage(FloatToStr(AmtCr)+' '+FloatToStr(Amtdr)); dmAcc.AdotblVouItems.FieldByName('explan').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=Mblno; if t_Accitems.Locate('accid',Accid,[]) then begin if t_Accitems.FieldByName('EmplACC').AsString='T' then begin dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetEmpID(sales); dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SaleKindName; // 客户类型 end; end; dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; dmAcc.AdotblVouItems.Post; end; { dmAcc.AdotblVouItems.Insert; if FCYDr<>0 then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=StrToFloatDef(FormatFloat('0.0000;-0.0000;0.0', AmtDr/FCYDr), 0) else if FCYCr<>0 then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=StrToFloatDef(FormatFloat('0.0000;-0.0000;0.0', AmtCr/FCYCr), 0) else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=Accid; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=AmtDr; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=AmtCr; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:=FCYNO; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=FCYDr; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=FCYCr; dmAcc.AdotblVouItems.FieldByName('explan').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=Mblno; if t_Accitems.Locate('accid',Accid,[]) then begin if t_Accitems.FieldByName('EmplACC').AsString='T' then begin dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetEmpID(sales); dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SaleKindName; // 客户类型 end; end; dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; ///// dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,'付');; dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; // 客户类型 dmAcc.AdotblVouItems.FieldByName('DEPTID').AsString:=GetDeptID(fDataSet.fieldByName('销售部门').AsString); dmAcc.AdotblVouItems.FieldByName('EMPLID').AsString:=GetEmpID(fDataSet.fieldByName('揽货人').AsString); } procedure Tfrm_cw_pingzheng_yt.InsertItemsVat(Accid:string;AmtDr,AmtCr,VatAmtCr:Double;FCYNO:string;FCYDr,FCYCr:Double;explan,mblno,corps,Depts,sales,DC:string;vatrate:Double); var Amt,Amtvat:Double; function GetEmpID(EmplName:String):String; begin with dmAcc.tempQuery do try Close;SQL.Clear; SQL.Add('select 财务软件代码 from t_sys_employee where 姓名='''+EmplName+''''); Open; if not FieldByName('财务软件代码').IsNull then Result:=FieldByName('财务软件代码').AsString else Result:='0'; finally Close; end; end; begin if DC='C' then begin Amtvat:=0; Amt:=0; Amtvat:=s_w(2,AmtCr/(1+vatrate/100)*vatrate/100); Amt:=AmtCr-Amtvat; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=Accid; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=Amt; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('explan').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=Mblno; if t_Accitems.Locate('accid',Accid,[]) then begin if t_Accitems.FieldByName('CORPACC').AsString='T' then begin dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(corps,'收'); dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; // 客户类型 end; if t_Accitems.FieldByName('EMPLACC').AsString='T' then begin dmAcc.AdotblVouItems.FieldByName('EmplID').AsString:=GetEmpID(sales); end; end; dmAcc.AdotblVouItems.FieldByName('Field1').AsString:=sales; dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; if AccInfo.ifPreTaxes then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.PreTaxes_Income else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Income; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=Amtvat; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('explan').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=Mblno; dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; dmAcc.AdotblVouItems.Post; end else if DC='D' then begin Amtvat:=0; Amt:=0; Amtvat:=VatAmtCr; Amt:=AmtDr-Amtvat; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=Accid; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=Amt; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('explan').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=Mblno; if t_Accitems.Locate('accid',Accid,[]) then begin if t_Accitems.FieldByName('CORPACC').AsString='T' then begin dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(corps,'收'); dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; // 客户类型 end; if t_Accitems.FieldByName('EMPLACC').AsString='T' then begin dmAcc.AdotblVouItems.FieldByName('EmplID').AsString:=GetEmpID(sales); end; end; dmAcc.AdotblVouItems.FieldByName('Field1').AsString:=sales; dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; dmAcc.AdotblVouItems.Post; if Amtvat<>0 then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; if AccInfo.ifPreTaxes then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.PreTaxes_Cost else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Cost; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=Amtvat; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('explan').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=Mblno; dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; dmAcc.AdotblVouItems.Post; end; end; end; function Tfrm_cw_pingzheng_yt.IncomeCost(fDataSet:TDataSet;explan,mblno,corps,Depts,sales:string;ProfitFull,ICUSD:Integer;Dr,Cr,USDDr,USDCr,UTORDr,UTORCr,VatAmtCr:Double;sTrade:string;vatrate:Double):String; var ExplanIncome,ExplanCost:string; begin ExplanIncome:=''; ExplanCost:=''; if (t_cw_design.fieldByName('主营业务收入摘要').AsString='') and (t_cw_design.fieldByName('主营业务成本摘要').AsString='') then begin ExplanIncome:=explan; ExplanCost:=explan; end else begin ExplanIncome:=getstrfromdataset(fDataSet,t_cw_design.fieldByName('主营业务收入摘要').AsString); ExplanCost:=getstrfromdataset(fDataSet,t_cw_design.fieldByName('主营业务成本摘要').AsString); end; if ProfitFull=0 then //全额 begin if ICUSD=0 then begin //收入成本不核算usd if (Dr<>0) or (UTORDr<>0) then begin InsertItemsVat(AccInfo.ProfitAccID,0,Dr+UTORDr,VatAmtCr,'RMB',0,0,ExplanIncome,mblno,corps,Depts,sales,'C',vatrate) end; if (Cr<>0) or (UTORCr<>0) or (VatAmtCr<>0) then begin InsertItemsVat(AccInfo.ImpProfitAccID,Cr+UTORCr,0,VatAmtCr,'RMB',0,0,ExplanCost,mblno,corps,Depts,sales,'D',vatrate) end; end else begin if USDDr<>0 then begin InsertItemsVat(AccInfo.ProfitAccIDU,0,UTORDr,VatAmtCr,'USD',0,USDDr,ExplanIncome,mblno,corps,Depts,sales,'C',vatrate) end; if USDCr<>0 then begin InsertItemsVat(AccInfo.ImpProfitAccIDU,UTORCr,0,VatAmtCr,'USD',USDCr,0,ExplanCost,mblno,corps,Depts,sales,'D',vatrate) end; if Dr<>0 then begin InsertItemsVat(AccInfo.ProfitAccID,0,Dr,VatAmtCr,'RMB',0,0,ExplanIncome,mblno,corps,Depts,sales,'C',vatrate) end; if Cr<>0 then begin InsertItemsVat(AccInfo.ImpProfitAccID,Cr,0,VatAmtCr,'RMB',0,0,ExplanCost,mblno,corps,Depts,sales,'D',vatrate) end; end; end else begin if ICUSD=0 then begin //收入成本不核算usd if (Dr+UTORDr-UTORCr-Cr)<>0 then InsertItemsVat(AccInfo.ProfitAccID,0,Dr+UTORDr-UTORCr-Cr,VatAmtCr,'RMB',0,0,ExplanIncome,mblno,corps,Depts,sales,'DC',vatrate) end else begin if (USDDr-USDCr)<>0 then begin InsertItemsVat(AccInfo.ProfitAccIDU,0,UTORDr-UTORCr,VatAmtCr,'USD',0,USDDr-USDCr,ExplanIncome,mblno,corps,Depts,sales,'DC',vatrate) end; if (Dr-Cr)<>0 then begin InsertItemsVat(AccInfo.ProfitAccID,0,Dr-Cr,VatAmtCr,'RMB',0,0,ExplanIncome,mblno,corps,Depts,sales,'DC',vatrate) end; end; end; end; function Tfrm_cw_pingzheng_yt.NewDrCrVou(fDataSet:TDataSet;BsType:integer;Mblno:String;voudate:TDate;BillNos:string):String; var aQuery,aQuery2:TADOQuery; Dr,Cr,USDDr,USDCr,UTORDr,UTORCr,UDrttl,UCrttl,UsdExrate,VatAmtCr,vatrate:Real; aPeriod,corps,Depts,sales,sTrade,explan:String; begin Result:=''; aQuery:=createADOQuery; aQuery2:=CreateADOQuery; Dr:=0.0; Cr:=0.0; USDDr:=0.0; USDCr:=0.0; UTORDR:=0.0; UTORCr:=0.0; VatAmtCr:=0.0; Depts:=''; sales:=''; UsdExRate:=StrToFloatDef(Edit10.Text,7.8); try dmAcc.AdotblVou.Insert; dmAcc.AdotblVou.FieldByName('SourceType').AsInteger:=1; dmAcc.AdotblVou.FieldByName('ATTACHS').AsInteger:=AccInfo.ATTACHS; if Trim(AccInfo.TransName)<>'' then dmAcc.AdotblVou.FieldByName('VKNO').AsString:=AccInfo.TransName else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; dmAcc.AdotblVou.FieldByName('PREPARED').AsString:=RxDBLookupCombo6.DisplayValues[0]; dmAcc.AdotblVou.Post; dmAcc.AdotblVou.Edit; with aQuery,SQL do begin Close;sql.Clear; Add('SELECT t_ch_fee.客户名称,t_crm_Client.客户全称,t_ch_fee.汇率,t_ch_fee.财务税额,t_ch_fee.财务税率,t_ch_fee.币别,t_ch_fee.是否垫付'); Add(',V_op_bscard_All.业务编号,V_op_bscard_All.委托编号,V_op_bscard_All.主提单号,V_op_bscard_All.船名,V_op_bscard_All.航次,V_op_bscard_All.航次'); Add(',SUM(t_ch_fee.金额) AS 金额,SUM(t_ch_fee.金额*t_ch_fee.汇率) AS 合计金额'); Add('From t_ch_fee'); Add('Left Join t_crm_Client on t_ch_fee.客户名称=t_crm_Client.客户简称'); Add('Left Join V_op_bscard_All on t_ch_fee.编号=V_op_bscard_All.编号'); Add('WHERE t_ch_fee. 类型=:类型 and t_ch_fee.编号 in ('+BillNos+')'); Add('GROUP BY t_ch_fee.客户名称,t_crm_Client.客户全称,t_ch_fee.汇率,t_ch_fee.财务税额,t_ch_fee.财务税率,t_ch_fee.币别,t_ch_fee.是否垫付'); Add(',V_op_bscard_All.业务编号,V_op_bscard_All.委托编号,V_op_bscard_All.主提单号,V_op_bscard_All.船名,V_op_bscard_All.航次'); Add('ORDER BY t_ch_fee.币别 DESC,t_ch_fee.客户名称'); Parameters.ParamByName('类型').Value:='收'; Open; end; Result:=dmAcc.AdotblVou.fieldByName('VOUNO').AsString; aQuery.First; while not aQuery.Eof do begin dmAcc.AdotblVouItems.Insert; vatrate:=aQuery.fieldByName('财务税率').AsFloat; // ShowMessage(aQuery.fieldByName('财务税率').AsString); if t_cw_design.FieldByName('凭证禁止修改').AsBoolean then dmAcc.AdotblVouItems.FieldByName('CF').AsInteger:=1; if aQuery.FieldByName('币别').AsString='USD' then begin if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherDebitAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccIDU; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=aQuery.fieldByName('汇率').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); USDDr:=USDDr+dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='USD'; if bsSkinCheckRadioBox7.Checked then begin dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0); if not aQuery.fieldByName('是否垫付').AsBoolean then UTORDR:=UTORDR+dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat; // ShowMessage(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat)); end else begin dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); if not aQuery.fieldByName('是否垫付').AsBoolean then UTORDR:=UTORDR+dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat; end; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; end else begin if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherDebitAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccID; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; if not aQuery.fieldByName('是否垫付').AsBoolean then Dr:=DR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; if t_cw_design.fieldByName('挂帐应收摘要').AsString='' then begin Explan:=get_str(BsType,'收',aQuery.fieldByName('客户名称').AsString,FDATASET); end else begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('挂帐应收摘要').AsString); end; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,'收'); dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; // 客户类型 dmAcc.AdotblVouItems.FieldByName('DEPTID').AsString:=GetDeptID(fDataSet.fieldByName('销售部门').AsString); dmAcc.AdotblVouItems.FieldByName('EMPLID').AsString:=GetEmpID(fDataSet.fieldByName('揽货人').AsString); case t_cw_design.fieldbyname('财务关联编号').AsInteger of 0: case BsType of 1,2: begin dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('主提单号').AsString; end; 3,4: begin dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('主运单号').AsString; end; end; 1: begin dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('委托编号').AsString; end; 2:begin dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('业务编号').AsString; end; else dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('业务编号').AsString end; dmAcc.AdotblVouItems.Post; aQuery.Next; end; with aQuery,SQL do begin Close;sql.Clear; Add('SELECT t_ch_fee.客户名称,t_crm_Client.客户全称,t_ch_fee.汇率,t_ch_fee.财务税额,t_ch_fee.财务税率,t_ch_fee.币别,t_ch_fee.是否垫付'); Add(',V_op_bscard_All.业务编号,V_op_bscard_All.委托编号,V_op_bscard_All.主提单号,V_op_bscard_All.船名,V_op_bscard_All.航次'); Add(',SUM(t_ch_fee.金额) AS 金额,SUM(t_ch_fee.金额*t_ch_fee.汇率) AS 合计金额'); Add('From t_ch_fee'); Add('Left Join t_crm_Client on t_ch_fee.客户名称=t_crm_Client.客户简称'); Add('Left Join V_op_bscard_All on t_ch_fee.编号=V_op_bscard_All.编号'); Add('WHERE t_ch_fee. 类型=:类型 and t_ch_fee.编号 in ('+BillNos+')'); Add('GROUP BY t_ch_fee.客户名称,t_crm_Client.客户全称,t_ch_fee.汇率,t_ch_fee.财务税额,t_ch_fee.财务税率,t_ch_fee.币别,t_ch_fee.是否垫付'); Add(',V_op_bscard_All.业务编号,V_op_bscard_All.委托编号,V_op_bscard_All.主提单号,V_op_bscard_All.船名,V_op_bscard_All.航次'); Add('ORDER BY t_ch_fee.币别 DESC,t_ch_fee.客户名称'); Parameters.ParamByName('类型').Value:='付'; Open; end; VatAmtCr:=0; Result:=dmAcc.AdotblVou.fieldByName('VOUNO').AsString; aQuery.First; while not aQuery.Eof do begin dmAcc.AdotblVouItems.Insert; if t_cw_design.FieldByName('凭证禁止修改').AsBoolean then dmAcc.AdotblVouItems.FieldByName('CF').AsInteger:=1; if aQuery.FieldByName('币别').AsString='USD' then begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; // 客户类型 if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherCreditAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccIDU; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=aQuery.fieldByName('汇率').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat),0); USDCr:=USDCr+dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat; dmAcc.AdotblVouItems.FieldByName('FCYDr').AsFloat:=0.0; if bsSkinCheckRadioBox7.Checked then begin dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0); if not aQuery.fieldByName('是否垫付').AsBoolean then UTORCr:=UTORCr+dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat; VatAmtCr:=VatAmtCr+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('财务税额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0); end else begin dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:= StrToFloatDef(FormatFloat('0.00;-0.00;0.0',StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); if not aQuery.fieldByName('是否垫付').AsBoolean then UTORCr:=UTORCr+dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat; VatAmtCr:=VatAmtCr+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('财务税额').AsFloat*UsdExRate))), 0); end; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='USD'; end else begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; // 客户类型 if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherCreditAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccID; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; if not aQuery.fieldByName('是否垫付').AsBoolean then Cr:=CR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); VatAmtCr:=VatAmtCr+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('财务税额').AsFloat))), 0); end; if t_cw_design.fieldByName('挂帐应付摘要').AsString='' then begin Explan:=get_str(BsType,'付',aQuery.fieldByName('客户名称').AsString,FDATASET); end else begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('挂帐应付摘要').AsString); end; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,'付');; dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; dmAcc.AdotblVouItems.FieldByName('DEPTID').AsString:=GetDeptID(fDataSet.fieldByName('销售部门').AsString); dmAcc.AdotblVouItems.FieldByName('EMPLID').AsString:=GetEmpID(fDataSet.fieldByName('揽货人').AsString); case t_cw_design.fieldbyname('财务关联编号').AsInteger of 0: case BsType of 1,2:dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('主提单号').AsString; 3,4:dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('主运单号').AsString; end; 1:dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('委托编号').AsString; 2:dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('业务编号').AsString else dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('业务编号').AsString end; dmAcc.AdotblVouItems.Post; aQuery.Next; end; case t_cw_design.fieldbyname('财务关联编号').AsInteger of 0: case BsType of 1,2:mblno:=fDataSet.fieldByName('主提单号').AsString; 3,4:mblno:=fDataSet.fieldByName('主运单号').AsString; end; 1:mblno:=fDataSet.fieldByName('委托编号').AsString; 2:mblno:=fDataSet.fieldByName('业务编号').AsString else mblno:=fDataSet.fieldByName('业务编号').AsString end; corps:=fDataSet.fieldByName('委托单位').AsString; Depts:=fDataSet.fieldByName('销售部门').AsString; sales:=fDataSet.fieldByName('揽货人').AsString; sTrade:=fDataSet.fieldByName('航线').AsString; explan:=get_strProfit(BsType,fDataSet); IncomeCost(fDataSet,explan,mblno,corps,Depts,sales,AccInfo.ProfitFull,AccInfo.ICUSD,Dr,Cr,USDDr,USDCr,UTORDr,UTORCr,VatAmtCr,sTrade,vatrate); dmAcc.AdotblVou.Post; finally FreeAndNil(aQuery); FreeAndNil(aQuery2); end; end; function Tfrm_cw_pingzheng_yt.NewDCVou_Patch(fDataSet:TDataSet;ZDR:String;voudate:TDatetime):Boolean; var aQuery,aQuery2:TADOQuery; mAccOK:Boolean; aModal:TModalResult; StlAmtDR,StlAmtCR,StlUSDAmtDR,StlUSDAmtCR,UsdExRate:Double; AmtDR,AmtCR,USDAmtDR,USDAmtCR,amtvat:Double; ordno:integer; MBlNo,Explan:string; begin Result:=false; aQuery:=CreateADOQuery; aQuery2:=CreateADOQuery; StlAmtDR:=0.00; StlAmtCR:=0.00; StlUSDAmtDR:=0.00; StlUSDAmtCR:=0.00; UsdExRate:=StrToFloatDef(Edit10.Text,7.8); amtvat:=0.00; Explan:=''; with aQuery,SQL do begin if t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin Close;Clear; Add('Select s.工作编号,s.客户名称,s.收付,s.币别,s.汇率,s.是否垫付'); Add(',sum(S.金额) 金额,sum(S.金额*s.汇率) 合计金额'); Add('from v_fee_balance_items s'); Add('where S.工作编号='''+fDataSet.fieldbyName('帐单编号').AsString+''''); Add('Group By s.工作编号,s.客户名称,s.收付,s.币别 ,s.汇率,s.是否垫付'); Add('Order By s.工作编号,s.客户名称,s.收付,s.币别 ,s.汇率,s.是否垫付'); end else begin Close;Clear; Add('Select s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.客户名称,s.收付,s.币别,s.汇率,S.船名,s.航次,s.是否垫付'); if AccInfo.AccItem=1 then Add(',f.费用类别'); Add(',sum(S.金额) 金额,sum(S.金额*s.汇率) 合计金额'); Add('from v_fee_balance_items s'); if AccInfo.AccItem=1 then Add('Left Join t_Code_fee f on s.费用名称=f.中文名'); Add('where S.工作编号='''+fDataSet.fieldbyName('帐单编号').AsString+''''); Add('Group By s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.客户名称,s.收付,s.币别 ,s.汇率,S.船名,s.航次,s.是否垫付'); if AccInfo.AccItem=1 then Add(',f.费用类别'); Add('Order By s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.币别 DESC,s.客户名称,s.收付,s.汇率,S.船名,s.航次'); if AccInfo.AccItem=1 then Add(',f.费用类别'); end; Open; end; aQuery.First; while not aQuery.Eof do begin if aQuery.FieldByName('收付').AsString='付' then begin if aQuery.FieldByName('币别').AsString='USD' then begin if bsSkinCheckRadioBox7.Checked then begin StlUSDAmtCR:=StlUSDAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) end else begin StlUSDAmtCR:=StlUSDAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end; end else begin StlAmtCR:=StlAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; end else begin if aQuery.FieldByName('币别').AsString='USD' then begin if bsSkinCheckRadioBox7.Checked then StlUSDAmtDR:=StlUSDAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else StlUSDAmtDR:=StlUSDAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end else begin StlAmtDR:=StlAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; end; aQuery.next; end; with aQuery,SQL do begin if t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin Close;Clear; Add('Select s.工作编号,s.客户名称,s.收付,s.原始币别 币别,s.汇率,s.是否垫付'); Add(',sum(S.原始金额) 金额,sum(S.原始金额*s.汇率) 合计金额'); Add('from v_fee_balance_items s'); Add('where S.工作编号='''+fDataSet.fieldbyName('帐单编号').AsString+''''); Add('Group By s.工作编号,s.客户名称,s.收付,s.原始币别,s.汇率,s.是否垫付'); Add('Order By s.工作编号,s.客户名称,s.收付,s.原始币别,s.汇率,s.是否垫付'); end else begin Close;Clear; Add('Select s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.客户名称,t_crm_client.客户全称,s.收付,s.原始币别 币别,s.汇率,S.船名,s.航次,s.是否垫付'); if AccInfo.AccItem=1 then Add(',f.费用类别'); Add(',sum(S.原始金额) 金额,sum(S.原始金额*s.汇率) 合计金额'); Add('from v_fee_balance_items s'); if AccInfo.AccItem=1 then Add('Left Join t_Code_fee f on s.费用名称=f.中文名'); Add('Left Join t_crm_client on s.客户名称=t_crm_client.客户简称'); Add('where S.工作编号='''+fDataSet.fieldbyName('帐单编号').AsString+''''); Add('Group By s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.客户名称,t_crm_client.客户全称,s.收付,s.原始币别 ,s.汇率,S.船名,s.航次,s.是否垫付'); if AccInfo.AccItem=1 then Add(',f.费用类别'); Add('Order By s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.币别 DESC,s.客户名称,s.收付,s.汇率,S.船名,s.航次'); if AccInfo.AccItem=1 then Add(',f.费用类别'); end; Open; end; aQuery.First; OrdNo:=dmAcc.AdotblVou.fieldByName('OrdNo').AsInteger; dmAcc.AdotblVouItems.Open; while not aQuery.Eof do begin dmAcc.AdotblVouItems.Insert; if aQuery.FieldByName('收付').AsString='付' then begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; if aQuery.FieldByName('币别').AsString='USD' then begin if t_cw_design.fieldByName('代理应付转应收').AsBoolean then begin if frm_data_share.t_crm_client_daili.Locate('客户简称',aQuery.fieldByName('客户名称').AsString,[]) then begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherCreditAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccIDU; end else begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherCreditAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccIDU; end; end else begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherCreditAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccIDU; end; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=aQuery.fieldByName('汇率').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); if bsSkinCheckRadioBox7.Checked then begin USDAmtCR:=USDAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) end else begin USDAmtCR:=USDAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end; end else begin if t_cw_design.fieldByName('代理应付转应收').AsBoolean then begin if frm_data_share.t_crm_client_daili.Locate('客户简称',aQuery.fieldByName('客户名称').AsString,[]) then begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherCreditAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccID; end else begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherCreditAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccID; end; end else begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherCreditAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccID; end; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; AmtCR:=AmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; end else begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; if aQuery.FieldByName('币别').AsString='USD' then begin if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherDebitAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccIDU; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=aQuery.fieldByName('汇率').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.00; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); if bsSkinCheckRadioBox7.Checked then USDAmtDR:=USDAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else USDAmtDR:=USDAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end else begin if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherDebitAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccID; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; AmtDR:=AmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; end; if aQuery.FieldByName('收付').AsString='付' then begin if t_cw_design.fieldByName('代理应付转应收').AsBoolean then begin if frm_data_share.t_crm_client_daili.Locate('客户简称',aQuery.fieldByName('客户名称').AsString,[]) then begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if AccInfo.AccItem=1 then Explan:=get_strDc(aQuery) else Explan:=get_strDc(aQuery); end; if t_cw_design.fieldByName('结算实收摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实收摘要').AsString); end; end else begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if AccInfo.AccItem=1 then Explan:=get_strDc(aQuery) else Explan:=get_strDc(aQuery); end; if t_cw_design.fieldByName('结算实付摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实付摘要').AsString); end; end; end else begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if AccInfo.AccItem=1 then Explan:=get_strDc(aQuery) else Explan:=get_strDc(aQuery); end; if t_cw_design.fieldByName('结算实付摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实付摘要').AsString); end; end; end else begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if AccInfo.AccItem=1 then Explan:=get_strDc(aQuery) else Explan:=get_strDc(aQuery); end; if t_cw_design.fieldByName('结算实收摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实收摘要').AsString); end; end; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if AccInfo.AccItem=1 then dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan+' '+aQuery.fieldByName('费用类别').AsString else dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan; end else begin dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=aQuery.fieldByName('客户名称').AsString +' '+aQuery.fieldByName('工作编号').AsString+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin dmAcc.AdotblVouItems.FieldByName('DEPTID').AsString:=GetDeptID(aQuery.fieldByName('销售部门').AsString); dmAcc.AdotblVouItems.FieldByName('EMPLID').AsString:=GetEmpID(aQuery.fieldByName('揽货人').AsString); end; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin case t_cw_design.fieldbyname('财务关联编号').AsInteger of 0:dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('主提单号').AsString; 1:dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('委托编号').AsString; 2:dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('业务编号').AsString else dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('主提单号').AsString; end; end else dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('工作编号').AsString; dmAcc.AdotblVouItems.Post; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then MBlNo:=aQuery.fieldByName('主提单号').AsString else MBlNo:=aQuery.fieldByName('工作编号').AsString; aQuery.next; end; if (fDataSet.FieldByName('美元金额').Asfloat<>0) or (fDataSet.FieldByName('币别').AsString='USD') then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=GetbankAccid(fdataSet,'USD'); if fdataset.fieldbyname('类型').asstring='收' then begin if fDataSet.FieldByName('币别').AsString='USD' then dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('实结金额').asfloat),0) else dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('美元金额').asfloat),0); dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=aQuery.fieldByName('汇率').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=StlUSDAmtDR-StlUSDAmtCR; amtvat:=amtvat+StlUSDAmtDR-StlUSDAmtCR; end else begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; if fDataSet.FieldByName('币别').AsString='USD' then dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('实结金额').asfloat),0) else dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('美元金额').asfloat),0); if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=aQuery.fieldByName('汇率').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StlUSDAmtCR-StlUSDAmtDR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; amtvat:=amtvat+StlUSDAmtCR-StlUSDAmtDR; end; dmAcc.AdotblVouItems.FieldByName('FSETTLCODE').AsString:=fdataset.fieldbyname('结算方式').asstring; if strtobool(get_parameters_value(83,'false')) then dmAcc.AdotblVouItems.FieldByName('FSETTLENO').AsString:=Trim(fdataset.fieldbyname('美元相关号码').asstring) else dmAcc.AdotblVouItems.FieldByName('FSETTLENO').AsString:=Trim(fdataset.fieldbyname('相关号码').asstring); dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); if fDataSet.fieldbyname('类型').AsString='收' then begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then Explan:=get_strDc(aQuery)+' '+MBlNo else Explan:=get_strDc(aQuery); end else begin Explan:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; if t_cw_design.fieldByName('结算实收摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实收摘要').AsString); end; end else begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then Explan:=get_strDc(aQuery)+' '+MBlNo else Explan:=get_strDc(aQuery); end else begin Explan:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; if t_cw_design.fieldByName('结算实付摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实付摘要').AsString) +'('+fdataset.fieldbyname('结算方式').asstring+'-'+Trim(fdataset.fieldbyname('相关号码').asstring)+')'; end; end; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan else dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan end else begin dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; dmAcc.AdotblVouItems.post; end; if (fDataSet.FieldByName('人民币金额').Asfloat<>0) or (fDataSet.FieldByName('币别').AsString='RMB') then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=GetbankAccid(fDataSet,'RMB'); if fdataset.fieldbyname('类型').asstring='收' then begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=StlAmtDR-StlAmtCR; amtvat:=amtvat+StlAmtDR-StlAmtCR; end else begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StlAmtCR-StlAmtDR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; amtvat:=amtvat+StlAmtCR-StlAmtDR; end; dmAcc.AdotblVouItems.FieldByName('FSETTLCODE').AsString:=fdataset.fieldbyname('结算方式').asstring; dmAcc.AdotblVouItems.FieldByName('FSETTLENO').AsString:=Trim(fdataset.fieldbyname('相关号码').asstring); dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); if fDataSet.fieldbyname('类型').AsString='收' then begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then Explan:=get_strDc(aQuery)+' '+MBlNo else Explan:=get_strDc(aQuery); end else begin Explan:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; if t_cw_design.fieldByName('结算实收摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实收摘要').AsString); end; end else begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then Explan:=get_strDc(aQuery)+' '+MBlNo else Explan:=get_strDc(aQuery); end else begin Explan:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; if t_cw_design.fieldByName('结算实付摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实付摘要').AsString) +'('+fdataset.fieldbyname('结算方式').asstring+'-'+Trim(fdataset.fieldbyname('相关号码').asstring)+')'; end; end; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan else dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan end else begin dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; //StlAmtDR+StlUSDAmtDR 实收 //AmtDR-USDAmtDR 应收 // ShowMessage('应收'+FloatToStr(AmtDR+USDAmtDR)+'实收'+FloatToStr(StlAmtDR+StlUSDAmtDR)+' 差'+FloatToStr(AmtDR+USDAmtDR-StlAmtDR-StlUSDAmtDR)); if StrToFloat(FormatFloat('0.00;-0.00;0',StlAmtDR+StlUSDAmtDR-AmtDR-USDAmtDR))<>0 then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ExchangeGLID; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StlAmtDR+StlUSDAmtDR-AmtDR-USDAmtDR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; //StlAmtDR+StlUSDAmtCR 实付 //AmtCR-USDAmtCR 应付 if StrToFloat(FormatFloat('0.00;-0.00;0',StlAmtCR+StlUSDAmtCR-AmtCR-USDAmtCR))<>0 then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ExchangeGLID; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=AmtCR+USDAmtCR-StlAmtCR-StlUSDAmtCR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; if AccInfo.ifPreTaxes and AccInfo.ifvat then begin amtvat:=amtvat/(1+frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100)*frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100; amtvat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',amtvat),0); if fDataSet.fieldbyname('类型').AsString='收' then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.PreTaxes_Income; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0-amtvat; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Income; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=amtvat; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end else begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.PreTaxes_Cost; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0-amtvat; dmAcc.AdotblVouItems.FieldByName('AmtCR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Cost; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=amtvat; dmAcc.AdotblVouItems.FieldByName('AmtCR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; end; // amtvat FreeAndNil(aQuery); end; function Tfrm_cw_pingzheng_yt.NewDCVou(fDataSet:TDataSet;ZDR:String;voudate:TDatetime):Boolean; var aQuery,aQuery2:TADOQuery; mAccOK:Boolean; aModal:TModalResult; StlAmtDR,StlAmtCR,StlUSDAmtDR,StlUSDAmtCR,UsdExRate:Double; AmtDR,AmtCR,USDAmtDR,USDAmtCR,amtvat,vatamtcr,tempAmt :Double; ordno:integer; MBlNo,wtbsnos,Explan:string; begin Result:=false; aQuery:=CreateADOQuery; aQuery2:=CreateADOQuery; StlAmtDR:=0.00; StlAmtCR:=0.00; StlUSDAmtDR:=0.00; StlUSDAmtCR:=0.00; amtvat:=0; dmAcc.AdotblVou.Insert; dmAcc.AdotblVou.FieldByName('SourceType').AsInteger:=2; dmAcc.AdotblVou.FieldByName('ATTACHS').AsInteger:=AccInfo.ATTACHS; if Trim(t_op_balance.FieldByName('类型').AsString)='收' then begin if Trim(t_cw_design.FieldByName('银行收款凭证字').AsString)<>'' then begin dmAcc.AdotblVou.FieldByName('VKNO').AsString:=Trim(t_cw_design.FieldByName('银行收款凭证字').AsString); end else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; end else begin if Trim(t_cw_design.FieldByName('银行付款凭证字').AsString)<>'' then begin dmAcc.AdotblVou.FieldByName('VKNO').AsString:=Trim(t_cw_design.FieldByName('银行付款凭证字').AsString); end else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; end; dmAcc.AdotblVou.FieldByName('PREPARED').AsString:=RxDBLookupCombo6.DisplayValues[0]; dmAcc.AdotblVou.Post; dmAcc.AdotblVou.Edit; UsdExRate:=StrToFloatDef(Edit10.Text,7.8); with aQuery,SQL do begin Close;Clear; Add('Select s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.客户名称,t_crm_client.客户全称,s.收付,s.币别,s.汇率,s.财务税率,s.财务税额,S.船名,s.航次,s.是否垫付'); Add(',sum(S.金额) 金额,sum(S.金额*s.汇率) 合计金额'); Add('from v_fee_balance_items s'); Add('Left Join t_crm_client on s.客户名称=t_crm_client.客户简称'); Add('where S.工作编号='''+fDataSet.fieldbyName('帐单编号').AsString+''''); Add('Group By s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.客户名称,t_crm_client.客户全称,s.收付,s.币别 ,s.汇率,s.财务税率,s.财务税额,S.船名,s.航次,s.是否垫付'); Add('Order By s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.币别 DESC,s.客户名称,s.收付,s.汇率,S.船名,s.航次'); Open; end; aQuery.First; while not aQuery.Eof do begin if aQuery.FieldByName('收付').AsString='付' then begin tempAmt:=0; if aQuery.FieldByName('币别').AsString='USD' then begin if bsSkinCheckRadioBox7.Checked then begin StlUSDAmtCR:=StlUSDAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0); tempAmt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0); vatamtcr:=vatamtcr+tempAmt/(1+aQuery.fieldByName('财务税率').AsFloat/100)*aQuery.fieldByName('财务税率').AsFloat/100 end else begin StlUSDAmtCR:=StlUSDAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); tempAmt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); vatamtcr:=vatamtcr+tempAmt/(1+aQuery.fieldByName('财务税率').AsFloat/100)*aQuery.fieldByName('财务税率').AsFloat/100 end; end else begin StlAmtCR:=StlAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); tempAmt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat))), 0);; vatamtcr:=vatamtcr+tempAmt/(1+aQuery.fieldByName('财务税率').AsFloat/100)*aQuery.fieldByName('财务税率').AsFloat/100 end; end else begin if aQuery.FieldByName('币别').AsString='USD' then begin if bsSkinCheckRadioBox7.Checked then StlUSDAmtDR:=StlUSDAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else StlUSDAmtDR:=StlUSDAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end else begin StlAmtDR:=StlAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; end; aQuery.next; end; with aQuery,SQL do begin Close;Clear; Add('Select s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.客户名称,t_crm_client.客户全称,s.收付,s.原始币别 币别,s.汇率,S.船名,s.航次,s.是否垫付'); Add(',sum(S.原始金额) 金额,sum(S.原始金额*s.汇率) 合计金额'); Add('from v_fee_balance_items s'); Add('Left Join t_crm_client on s.客户名称=t_crm_client.客户简称'); Add('where S.工作编号='''+fDataSet.fieldbyName('帐单编号').AsString+''''); Add('Group By s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.客户名称,t_crm_client.客户全称,s.收付,s.原始币别 ,s.汇率,S.船名,s.航次,s.是否垫付'); Add('Order By s.委托编号,s.业务编号,s.主提单号,s.委托单位,s.销售部门,s.揽货人,s.币别 DESC,s.客户名称,s.收付,s.汇率,S.船名,s.航次'); Open; end; aQuery.First; OrdNo:=dmAcc.AdotblVou.fieldByName('OrdNo').AsInteger; dmAcc.AdotblVouItems.Open; while not aQuery.Eof do begin dmAcc.AdotblVouItems.Insert; if aQuery.FieldByName('收付').AsString='付' then begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; if aQuery.FieldByName('币别').AsString='USD' then begin if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherCreditAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccIDU; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=aQuery.fieldByName('汇率').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); if bsSkinCheckRadioBox7.Checked then begin USDAmtCR:=USDAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) end else begin USDAmtCR:=USDAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end; end else begin if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherCreditAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccID; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; AmtCR:=AmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; end else begin dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; if aQuery.FieldByName('币别').AsString='USD' then begin if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherDebitAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccIDU; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=aQuery.fieldByName('汇率').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.00; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); if bsSkinCheckRadioBox7.Checked then USDAmtDR:=USDAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else USDAmtDR:=USDAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end else begin if aQuery.fieldByName('是否垫付').AsBoolean then dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.OtherDebitAccID else dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccID; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; AmtDR:=AmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; end; if fDataSet.fieldbyname('类型').AsString='收' then begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then Explan:=get_strDc(aQuery)+' '+MBlNo else Explan:=get_strDc(aQuery); end else begin Explan:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; if t_cw_design.fieldByName('结算实收摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实收摘要').AsString); end; end else begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then Explan:=get_strDc(aQuery)+' '+MBlNo else Explan:=get_strDc(aQuery); end else begin Explan:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; if t_cw_design.fieldByName('结算实付摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实付摘要').AsString) +'('+fdataset.fieldbyname('结算方式').asstring+'-'+Trim(fdataset.fieldbyname('相关号码').asstring)+')'; end; end; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan else dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan end else begin if Trim(Explan)<>'' then dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan else dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString) end; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin dmAcc.AdotblVouItems.FieldByName('DEPTID').AsString:=GetDeptID(aQuery.fieldByName('销售部门').AsString); dmAcc.AdotblVouItems.FieldByName('EMPLID').AsString:=GetEmpID(aQuery.fieldByName('揽货人').AsString); end; if t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('工作编号').AsString else begin case t_cw_design.fieldbyname('财务关联编号').AsInteger of 0:dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('主提单号').AsString; 1:dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('委托编号').AsString; 2:dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('业务编号').AsString else dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('主提单号').AsString; end; end; dmAcc.AdotblVouItems.Post; if t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then MBlNo:=aQuery.fieldByName('工作编号').AsString else MBlNo:=aQuery.fieldByName('主提单号').AsString; aQuery.next; end; if (fDataSet.FieldByName('美元金额').Asfloat<>0) or (fDataSet.FieldByName('币别').AsString='USD') then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=GetbankAccid(fdataSet,'USD'); if fdataset.fieldbyname('类型').asstring='收' then begin if (StrToBool(get_parameters_value(83,'false'))) then begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('美元金额').asfloat),0); end else begin if fDataSet.FieldByName('币别').AsString='USD' then dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('实结金额').asfloat),0) else dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('美元金额').asfloat),0); end; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; if bsSkinCheckRadioBox7.Checked then if dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat<>0 then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=(StlUSDAmtDR-StlUSDAmtCR)/dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=1 else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=StlUSDAmtDR-StlUSDAmtCR; amtvat:=amtvat+StlUSDAmtDR-StlUSDAmtCR; end else begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; if (StrToBool(get_parameters_value(83,'false'))) then begin dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('美元金额').asfloat),0); end else begin if fDataSet.FieldByName('币别').AsString='USD' then dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('实结金额').asfloat),0) else dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('美元金额').asfloat),0); end; if bsSkinCheckRadioBox7.Checked then if dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat<>0 then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=(StlUSDAmtCR-StlUSDAmtDR)/dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=1 else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StlUSDAmtCR-StlUSDAmtDR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; amtvat:=amtvat+StlUSDAmtCR-StlUSDAmtDR; end; dmAcc.AdotblVouItems.FieldByName('FSETTLCODE').AsString:=fdataset.fieldbyname('结算方式').asstring; if strtobool(get_parameters_value(83,'false')) then dmAcc.AdotblVouItems.FieldByName('FSETTLENO').AsString:=Trim(fdataset.fieldbyname('美元相关号码').asstring) else dmAcc.AdotblVouItems.FieldByName('FSETTLENO').AsString:=Trim(fdataset.fieldbyname('相关号码').asstring); dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); if fDataSet.fieldbyname('类型').AsString='收' then begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then Explan:=get_strDc(aQuery)+' '+MBlNo else Explan:=get_strDc(aQuery); end else begin Explan:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; if t_cw_design.fieldByName('结算实收摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实收摘要').AsString); end; end else begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then Explan:=get_strDc(aQuery)+' '+MBlNo else Explan:=get_strDc(aQuery); end else begin Explan:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; if t_cw_design.fieldByName('结算实付摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实付摘要').AsString) +'('+fdataset.fieldbyname('结算方式').asstring+'-'+Trim(fdataset.fieldbyname('相关号码').asstring)+')'; end; end; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan else dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan end else begin if Trim(Explan)<>'' then dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan else dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; dmAcc.AdotblVouItems.post; end; if (fDataSet.FieldByName('人民币金额').Asfloat<>0) or (fDataSet.FieldByName('币别').AsString='RMB') then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=GetbankAccid(fDataSet,'RMB'); if fdataset.fieldbyname('类型').asstring='收' then begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=StlAmtDR-StlAmtCR; amtvat:=amtvat+StlAmtDR-StlAmtCR; end else begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StlAmtCR-StlAmtDR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; amtvat:=amtvat+StlAmtCR-StlAmtDR; end; dmAcc.AdotblVouItems.FieldByName('FSETTLCODE').AsString:=fdataset.fieldbyname('结算方式').asstring; dmAcc.AdotblVouItems.FieldByName('FSETTLENO').AsString:=Trim(fdataset.fieldbyname('相关号码').asstring); dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); if fDataSet.fieldbyname('类型').AsString='收' then begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then Explan:=get_strDc(aQuery)+' '+MBlNo else Explan:=get_strDc(aQuery); end else begin Explan:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; if t_cw_design.fieldByName('结算实收摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实收摘要').AsString); end; end else begin Explan:=''; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then Explan:=get_strDc(aQuery)+' '+MBlNo else Explan:=get_strDc(aQuery); end else begin Explan:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; if t_cw_design.fieldByName('结算实付摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实付摘要').AsString) +'('+fdataset.fieldbyname('结算方式').asstring+'-'+Trim(fdataset.fieldbyname('相关号码').asstring)+')'; end; end; if not t_cw_design.fieldbyname('根据帐单生成凭证').asboolean then begin if t_cw_design.fieldbyname('收付主提单号').asboolean then dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan else dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan end else begin if Trim(Explan)<>'' then dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan else dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); end; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; if StrToFloat(FormatFloat('0.00;-0.00;0',StlAmtDR+StlUSDAmtDR-AmtDR-USDAmtDR))<>0 then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ExchangeGLID; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StlAmtDR+StlUSDAmtDR-AmtDR-USDAmtDR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; if (StlAmtCR+StlUSDAmtCR-AmtCR-USDAmtCR)<>0 then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ExchangeGLID; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=AmtCR+USDAmtCR-StlAmtCR-StlUSDAmtCR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; amtvat:=amtvat/(1+frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100)*frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100; amtvat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',amtvat),0); if fDataSet.fieldbyname('类型').AsString='收' then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.PreTaxes_Income; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0-amtvat; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Income; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=amtvat; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end else begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.PreTaxes_Cost; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0-vatamtcr; dmAcc.AdotblVouItems.FieldByName('AmtCR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Cost; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=vatamtcr; dmAcc.AdotblVouItems.FieldByName('AmtCR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; dmAcc.AdotblVou.Post; FreeAndNil(aQuery); end; //// 结算增值税 function Tfrm_cw_pingzheng_yt.NewDCVouvat(fDataSet:TDataSet;ZDR:String;voudate:TDatetime):Boolean; var aQuery,aQuery2:TADOQuery; mAccOK:Boolean; aModal:TModalResult; StlAmtDR,StlAmtCR,StlUSDAmtDR,StlUSDAmtCR,UsdExRate:Double; AmtDR,AmtCR,USDAmtDR,USDAmtCR,amtvat,vat:Double; ordno:integer; MBlNo,wtbsnos,Explan:string; begin Result:=false; aQuery:=CreateADOQuery; aQuery2:=CreateADOQuery; StlAmtDR:=0.00; StlAmtCR:=0.00; StlUSDAmtDR:=0.00; StlUSDAmtCR:=0.00; amtvat:=0; dmAcc.AdotblVou.Insert; dmAcc.AdotblVou.FieldByName('SourceType').AsInteger:=2; dmAcc.AdotblVou.FieldByName('ATTACHS').AsInteger:=AccInfo.ATTACHS; if Trim(t_op_balance.FieldByName('类型').AsString)='收' then begin if Trim(t_cw_design.FieldByName('银行收款凭证字').AsString)<>'' then begin dmAcc.AdotblVou.FieldByName('VKNO').AsString:=Trim(t_cw_design.FieldByName('银行收款凭证字').AsString); end else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; end else begin if Trim(t_cw_design.FieldByName('银行付款凭证字').AsString)<>'' then begin dmAcc.AdotblVou.FieldByName('VKNO').AsString:=Trim(t_cw_design.FieldByName('银行付款凭证字').AsString); end else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; end; dmAcc.AdotblVou.FieldByName('PREPARED').AsString:=RxDBLookupCombo6.DisplayValues[0]; dmAcc.AdotblVou.Post; dmAcc.AdotblVou.Edit; UsdExRate:=StrToFloatDef(Edit10.Text,7.8); with aQuery,SQL do begin Close;Clear; Add('Select s.工作编号,s.客户名称,s.收付,s.币别,s.汇率,s.是否垫付'); Add(',sum(S.金额) 金额,sum(S.金额*s.汇率) 合计金额'); Add('from v_fee_balance_items s'); Add('where S.工作编号='''+fDataSet.fieldbyName('帐单编号').AsString+''''); Add('Group By s.工作编号,s.客户名称,s.收付,s.币别 ,s.汇率,s.是否垫付'); Add('Order By s.工作编号,s.客户名称,s.收付,s.币别 ,s.汇率,s.是否垫付'); Open; end; aQuery.First; while not aQuery.Eof do begin if aQuery.FieldByName('收付').AsString='付' then begin if aQuery.FieldByName('币别').AsString='USD' then begin if bsSkinCheckRadioBox7.Checked then begin StlUSDAmtCR:=StlUSDAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) end else begin StlUSDAmtCR:=StlUSDAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end; end else begin StlAmtCR:=StlAmtCR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; end else begin if aQuery.FieldByName('币别').AsString='USD' then begin if bsSkinCheckRadioBox7.Checked then StlUSDAmtDR:=StlUSDAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else StlUSDAmtDR:=StlUSDAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end else begin StlAmtDR:=StlAmtDR+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; end; aQuery.next; end; if (fDataSet.FieldByName('美元金额').Asfloat<>0) or (fDataSet.FieldByName('币别').AsString='USD') then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=GetbankAccid(fdataSet,'USD'); if fdataset.fieldbyname('类型').asstring='收' then begin if (StrToBool(get_parameters_value(83,'false'))) then begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('美元金额').asfloat),0); end else begin if fDataSet.FieldByName('币别').AsString='USD' then dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('实结金额').asfloat),0) else dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('美元金额').asfloat),0); end; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; if bsSkinCheckRadioBox7.Checked then if dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat<>0 then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=(StlUSDAmtDR-StlUSDAmtCR)/dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=1 else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=StlUSDAmtDR-StlUSDAmtCR; amtvat:=amtvat+StlUSDAmtDR-StlUSDAmtCR; end else begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; if (StrToBool(get_parameters_value(83,'false'))) then begin dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('美元金额').asfloat),0); end else begin if fDataSet.FieldByName('币别').AsString='USD' then dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('实结金额').asfloat),0) else dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fdataset.fieldbyname('美元金额').asfloat),0); end; if bsSkinCheckRadioBox7.Checked then if dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat<>0 then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=(StlUSDAmtCR-StlUSDAmtDR)/dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=1 else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StlUSDAmtCR-StlUSDAmtDR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; amtvat:=amtvat+StlUSDAmtCR-StlUSDAmtDR; end; dmAcc.AdotblVouItems.FieldByName('FSETTLCODE').AsString:=fdataset.fieldbyname('结算方式').asstring; if strtobool(get_parameters_value(83,'false')) then dmAcc.AdotblVouItems.FieldByName('FSETTLENO').AsString:=Trim(fdataset.fieldbyname('美元相关号码').asstring) else dmAcc.AdotblVouItems.FieldByName('FSETTLENO').AsString:=Trim(fdataset.fieldbyname('相关号码').asstring); dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); if fDataSet.fieldbyname('类型').AsString='收' then begin Explan:=''; if t_cw_design.fieldByName('结算实收摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实收摘要').AsString); end else Explan:=aQuery.fieldByName('客户名称').AsString; end else begin Explan:=''; if t_cw_design.fieldByName('结算实付摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实付摘要').AsString); end else Explan:=aQuery.fieldByName('客户名称').AsString; end; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan; dmAcc.AdotblVouItems.post; end; if (fDataSet.FieldByName('人民币金额').Asfloat<>0) or (fDataSet.FieldByName('币别').AsString='RMB') then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=GetbankAccid(fDataSet,'RMB'); if fdataset.fieldbyname('类型').asstring='收' then begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=StlAmtDR-StlAmtCR; amtvat:=amtvat+StlAmtDR-StlAmtCR; end else begin dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StlAmtCR-StlAmtDR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; amtvat:=amtvat+StlAmtCR-StlAmtDR; end; dmAcc.AdotblVouItems.FieldByName('FSETTLCODE').AsString:=fdataset.fieldbyname('结算方式').asstring; dmAcc.AdotblVouItems.FieldByName('FSETTLENO').AsString:=Trim(fdataset.fieldbyname('相关号码').asstring); dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); if fDataSet.fieldbyname('类型').AsString='收' then begin Explan:=''; if t_cw_design.fieldByName('结算实收摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实收摘要').AsString); end else Explan:=aQuery.fieldByName('客户名称').AsString; end else begin Explan:=''; if t_cw_design.fieldByName('结算实付摘要').AsString<>'' then begin Explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('结算实付摘要').AsString); end else Explan:=aQuery.fieldByName('客户名称').AsString; end; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=Explan; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; { if StrToFloat(FormatFloat('0.00;-0.00;0',StlAmtDR+StlUSDAmtDR-AmtDR-USDAmtDR))<>0 then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ExchangeGLID; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StlAmtDR+StlUSDAmtDR-AmtDR-USDAmtDR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; if (StlAmtCR+StlUSDAmtCR-AmtCR-USDAmtCR)<>0 then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ExchangeGLID; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=AmtCR+USDAmtCR-StlAmtCR-StlUSDAmtCR; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=MBlNo+' '+get_billStr(fDataSet.fieldByName('帐单编号').AsString); dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; end; } vat:=amtvat/(1+frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100)*frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100; vat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',vat),0); if fDataSet.fieldbyname('类型').AsString='收' then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccID; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=amtvat-vat; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='收入 '+fDataSet.fieldByName('客户名称').AsString; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(fDataSet.fieldByName('客户名称').AsString,'收'); dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Income; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=vat; dmAcc.AdotblVouItems.FieldByName('AmtDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='销项税 '+fDataSet.fieldByName('客户名称').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(fDataSet.fieldByName('客户名称').AsString,'收'); dmAcc.AdotblVouItems.post; end else begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccID; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=amtvat-vat; dmAcc.AdotblVouItems.FieldByName('AmtCR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='成本 '+fDataSet.fieldByName('客户名称').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(fDataSet.fieldByName('客户名称').AsString,'付'); dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; dmAcc.AdotblVouItems.post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Cost; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=vat; dmAcc.AdotblVouItems.FieldByName('AmtCR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='进项税 '+fDataSet.fieldByName('客户名称').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldbyName('帐单编号').AsString; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(fDataSet.fieldByName('客户名称').AsString,'付'); dmAcc.AdotblVouItems.post; end; dmAcc.AdotblVou.Post; FreeAndNil(aQuery); end; //// function Tfrm_cw_pingzheng_yt.InvoiceDr(fDataSet:TDataSet;ZDR:String;voudate:TDatetime):Boolean; var aQuery,aQuery2:TADOQuery; mAccOK:Boolean; aModal:TModalResult; UsdExRate:Double; Amt,r_Taxes_inccome:Double; ordno:integer; MBlNo,wtbsnos,explan:string; begin Result:=false; aQuery:=CreateADOQuery; aQuery2:=CreateADOQuery; Amt:=0.00; try dmAcc.AdotblVou.Insert; dmAcc.AdotblVou.FieldByName('SourceType').AsInteger:=1; dmAcc.AdotblVou.FieldByName('ATTACHS').AsInteger:=AccInfo.ATTACHS; if Trim(AccInfo.TransName)<>'' then dmAcc.AdotblVou.FieldByName('VKNO').AsString:=AccInfo.TransName else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; dmAcc.AdotblVou.FieldByName('PREPARED').AsString:=RxDBLookupCombo6.DisplayValues[0]; dmAcc.AdotblVou.Post; dmAcc.AdotblVou.Edit; UsdExRate:=StrToFloatDef(Edit10.Text,7.8); with aQuery,SQL do begin Close;Clear; Add('Select s.客户名称,t_crm_client.客户全称,s.类型 收付,s.原始币别 币别,s.汇率'); if t_cw_design.fieldbyname('业务编号').asboolean then Add(',s.业务编号'); if t_cw_design.fieldbyname('委托编号').asboolean then Add(',s.委托编号'); if t_cw_design.fieldbyname('主提单号').asboolean then Add(',s.主提单号'); if t_cw_design.fieldbyname('船名').asboolean then Add(',s.船名'); if t_cw_design.fieldbyname('主提单号').asboolean then Add(',s.航次'); if t_cw_design.fieldbyname('部门核算名称').asboolean then Add(',s.销售部门'); if t_cw_design.fieldbyname('人员核算名称').asboolean then Add(',s.揽货人'); if AccInfo.AccItem=1 then Add(',f.费用类别'); Add(',sum(S.原始金额) 金额,sum(S.原始金额*s.汇率) 合计金额'); Add('from v_fee_do_bscard s'); if AccInfo.AccItem=1 then Add('Left Join t_Code_fee f on s.费用名称=f.中文名'); Add('Left Join t_crm_client on s.客户名称=t_crm_client.客户简称'); Add('where S.工作编号='''+fDataSet.fieldbyName('申请编号').AsString+''''); Add('Group By s.客户名称,t_crm_client.客户全称,s.类型,s.原始币别,s.汇率'); if t_cw_design.fieldbyname('业务编号').asboolean then Add(',s.业务编号'); if t_cw_design.fieldbyname('委托编号').asboolean then Add(',s.委托编号'); if t_cw_design.fieldbyname('主提单号').asboolean then Add(',s.主提单号'); if t_cw_design.fieldbyname('船名').asboolean then Add(',s.船名'); if t_cw_design.fieldbyname('主提单号').asboolean then Add(',s.航次'); if t_cw_design.fieldbyname('部门核算名称').asboolean then Add(',s.销售部门'); if t_cw_design.fieldbyname('人员核算名称').asboolean then Add(',s.揽货人'); if AccInfo.AccItem=1 then Add(',f.费用类别'); Add('Order By s.客户名称,s.类型,s.原始币别 desc '); Open; end; aQuery.First; OrdNo:=dmAcc.AdotblVou.fieldByName('OrdNo').AsInteger; dmAcc.AdotblVouItems.Open; while not aQuery.Eof do begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; if aQuery.FieldByName('币别').AsString='USD' then begin dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccIDU; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=aQuery.fieldByName('汇率').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=0.00; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.00; if bsSkinCheckRadioBox7.Checked then Amt:=Amt+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else Amt:=Amt+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end else begin dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccID; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; Amt:=Amt+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; explan:=''; if t_cw_design.fieldbyname('挂帐应收摘要').AsString<>'' then begin explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('挂帐应收摘要').AsString); end else begin explan:=get_strInvoice(aQuery); end; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; case t_cw_design.fieldbyname('财务关联编号').AsInteger of 0: if t_cw_design.fieldbyname('主提单号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('主提单号').AsString; 1: if t_cw_design.fieldbyname('委托编号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('委托编号').AsString; 2: if t_cw_design.fieldbyname('业务编号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('业务编号').AsString end; dmAcc.AdotblVouItems.Post; aQuery.next; end; if Amt<>fDataSet.fieldbyName('合计金额').AsFloat then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ExchangeGLID; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=-StrToFloatDef(FormatFloat('0.00;-0.00;0.0',Amt-fDataSet.fieldbyName('合计金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; Amt:=Amt+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); explan:=''; if t_cw_design.fieldbyname('挂帐应收摘要').AsString<>'' then begin explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('挂帐应收摘要').AsString); end else begin explan:=get_strInvoice(aQuery); end; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString)+'-'; dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; case t_cw_design.fieldbyname('财务关联编号').AsInteger of 0: if t_cw_design.fieldbyname('主提单号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('主提单号').AsString; 1: if t_cw_design.fieldbyname('委托编号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('委托编号').AsString; 2: if t_cw_design.fieldbyname('业务编号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('业务编号').AsString else dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=''; end; dmAcc.AdotblVouItems.Post; end; Amt:=0; r_Taxes_inccome:=0; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ProfitAccIDU; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; Amt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat), 0); r_Taxes_inccome:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', (Amt/(1+frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100))*frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100), 0); explan:=''; if t_cw_design.fieldbyname('主营业务收入摘要').AsString<>'' then begin explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('主营业务收入摘要').AsString); end else begin explan:=get_strInvoice(aQuery); end; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsString:=FormatFloat('0.00;-0.00;0',Amt-r_Taxes_inccome); dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=explan+fDataSet.fieldByName('发票号码').AsString+' 发票抬头'+fDataSet.fieldByName('发票抬头').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=''; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Income; Amt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat), 0); r_Taxes_inccome:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', (Amt/(1+frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100))*frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100), 0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=r_Taxes_inccome; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='销项税金 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=''; dmAcc.AdotblVouItems.Post; ordno:=dmAcc.AdotblVou.fieldbyname('ordno').asinteger; finally FreeAndNil(aQuery); end; end; function Tfrm_cw_pingzheng_yt.InvoiceCr(fDataSet:TDataSet;ZDR:String;voudate:TDatetime):Boolean; var aQuery,aQuery2:TADOQuery; mAccOK:Boolean; aModal:TModalResult; UsdExRate:Double; Amt,r_Taxes_inccome:Double; ordno:integer; MBlNo,wtbsnos,explan:string; begin Result:=false; aQuery:=CreateADOQuery; aQuery2:=CreateADOQuery; Amt:=0.00; try with aQuery,SQL do begin Close;Clear; Add('Select s.客户名称,t_crm_client.客户全称,s.类型 收付,s.原始币别 币别,s.汇率'); if t_cw_design.fieldbyname('业务编号').asboolean then Add(',s.业务编号'); if t_cw_design.fieldbyname('委托编号').asboolean then Add(',s.委托编号'); if t_cw_design.fieldbyname('主提单号').asboolean then Add(',s.主提单号'); if t_cw_design.fieldbyname('船名').asboolean then Add(',s.船名'); if t_cw_design.fieldbyname('主提单号').asboolean then Add(',s.航次'); if t_cw_design.fieldbyname('部门核算名称').asboolean then Add(',s.销售部门'); if t_cw_design.fieldbyname('人员核算名称').asboolean then Add(',s.揽货人'); if AccInfo.AccItem=1 then Add(',f.费用类别'); Add(',sum(S.原始金额) 金额,sum(S.原始金额*s.汇率) 合计金额'); Add('from v_fee_do_bscard s'); if AccInfo.AccItem=1 then Add('Left Join t_Code_fee f on s.费用名称=f.中文名'); Add('Left Join t_crm_client on s.客户名称=t_crm_client.客户简称'); Add('where S.工作编号='''+fDataSet.fieldbyName('核销编号').AsString+''''); Add('Group By s.客户名称,t_crm_client.客户全称,s.类型,s.原始币别,s.汇率'); if t_cw_design.fieldbyname('业务编号').asboolean then Add(',s.业务编号'); if t_cw_design.fieldbyname('委托编号').asboolean then Add(',s.委托编号'); if t_cw_design.fieldbyname('主提单号').asboolean then Add(',s.主提单号'); if t_cw_design.fieldbyname('船名').asboolean then Add(',s.船名'); if t_cw_design.fieldbyname('主提单号').asboolean then Add(',s.航次'); if t_cw_design.fieldbyname('部门核算名称').asboolean then Add(',s.销售部门'); if t_cw_design.fieldbyname('人员核算名称').asboolean then Add(',s.揽货人'); if AccInfo.AccItem=1 then Add(',f.费用类别'); Add('Order By s.客户名称,s.类型,s.原始币别 desc '); Open; end; aQuery.First; dmAcc.AdotblVou.Insert; dmAcc.AdotblVou.FieldByName('SourceType').AsInteger:=1; dmAcc.AdotblVou.FieldByName('ATTACHS').AsInteger:=AccInfo.ATTACHS; if Trim(AccInfo.TransName)<>'' then dmAcc.AdotblVou.FieldByName('VKNO').AsString:=AccInfo.TransName else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; dmAcc.AdotblVou.FieldByName('PREPARED').AsString:=RxDBLookupCombo6.DisplayValues[0]; dmAcc.AdotblVou.Post; dmAcc.AdotblVou.Edit; UsdExRate:=StrToFloatDef(Edit10.Text,7.8); Amt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('实际金额').AsFloat+fDataSet.fieldbyName('发票差额').AsFloat), 0); r_Taxes_inccome:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', (Amt/(1+fDataSet.fieldbyname('税率').AsFloat/100))*fDataSet.fieldbyname('税率').AsFloat/100), 0); explan:=''; if t_cw_design.fieldbyname('主营业务成本摘要').AsString<>'' then begin explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('主营业务成本摘要').AsString); end else begin explan:=get_strInvoice(aQuery); end; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ImpProfitAccID; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=1; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=Amt-r_Taxes_inccome; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=''; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Cost; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=1; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=r_Taxes_inccome; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='税金 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=''; dmAcc.AdotblVouItems.Post; Amt:=0.00; OrdNo:=dmAcc.AdotblVou.fieldByName('OrdNo').AsInteger; dmAcc.AdotblVouItems.Open; while not aQuery.Eof do begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.SuppKindName; if aQuery.FieldByName('币别').AsString='USD' then begin dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccIDU; if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=aQuery.fieldByName('汇率').AsFloat else dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); if bsSkinCheckRadioBox7.Checked then dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.00; if bsSkinCheckRadioBox7.Checked then Amt:=Amt+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*aQuery.fieldByName('汇率').AsFloat))), 0) else Amt:=Amt+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', StrToFloat(FloatToStr(aQuery.fieldByName('金额').AsFloat*UsdExRate))), 0); end else begin dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccID; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',aQuery.fieldByName('金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; Amt:=Amt+StrToFloatDef(FormatFloat('0.00;-0.00;0.0', aQuery.fieldByName('金额').AsFloat), 0); end; explan:=''; if t_cw_design.fieldbyname('挂帐应付摘要').AsString<>'' then begin explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('挂帐应付摘要').AsString); end else begin explan:=get_strInvoice(aQuery); end; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; case t_cw_design.fieldbyname('财务关联编号').AsInteger of 0: if t_cw_design.fieldbyname('主提单号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('主提单号').AsString; 1: if t_cw_design.fieldbyname('委托编号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('委托编号').AsString; 2: if t_cw_design.fieldbyname('业务编号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('业务编号').AsString end; dmAcc.AdotblVouItems.Post; aQuery.next; end; if Amt<>fDataSet.fieldbyName('实际金额').AsFloat+fDataSet.fieldbyName('发票差额').AsFloat then begin dmAcc.AdotblVouItems.Insert; // dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ExchangeGLID; dmAcc.AdotblVouItems.FieldByName('Amtdr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',Amt-fDataSet.fieldbyName('实际金额').AsFloat-fDataSet.fieldbyName('发票差额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('Amtcr').AsFloat:=0.00; dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; explan:=''; if t_cw_design.fieldbyname('主营业务成本摘要').AsString<>'' then begin explan:=getstrfromdataset(aQuery,t_cw_design.fieldByName('主营业务成本摘要').AsString); end else begin explan:=get_strInvoice(aQuery); end; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=explan; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(aQuery.fieldByName('客户名称').AsString,aQuery.fieldbyname('收付').AsString); dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; case t_cw_design.fieldbyname('财务关联编号').AsInteger of 0: if t_cw_design.fieldbyname('主提单号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('主提单号').AsString; 1: if t_cw_design.fieldbyname('委托编号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('委托编号').AsString; 2: if t_cw_design.fieldbyname('业务编号').asboolean then dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=aQuery.fieldByName('业务编号').AsString end; dmAcc.AdotblVouItems.Post; end; ordno:=dmAcc.AdotblVou.fieldbyname('ordno').asinteger; finally FreeAndNil(aQuery); end; end; function Tfrm_cw_pingzheng_yt.NewDrCrInv(fDataSet:TDataSet;Mblno,ZDR:String;voudate:TDate):String; var Dr,Cr,UDr,UCr,UDrttl,UCrttl,UsdExrate,r_Taxes_inccome,Amt:Real; OrdNo:integer; aPeriod:String; begin Result:=''; Dr:=0.0; Cr:=0.0; UDr:=0.0; UCr:=0.0; r_Taxes_inccome:=0.0; Amt:=0.0; if fDataSet.FieldByName('币别').AsString='RMB' then UsdExRate:=1 else UsdExRate:=StrToFloatDef(Edit10.Text,7.8); try dmAcc.AdotblVou.Insert; dmAcc.AdotblVou.FieldByName('SourceType').AsInteger:=1; dmAcc.AdotblVou.FieldByName('ATTACHS').AsInteger:=AccInfo.ATTACHS; if Trim(AccInfo.TransName)<>'' then dmAcc.AdotblVou.FieldByName('VKNO').AsString:=AccInfo.TransName else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; dmAcc.AdotblVou.FieldByName('PREPARED').AsString:=RxDBLookupCombo6.DisplayValues[0]; dmAcc.AdotblVou.Post; dmAcc.AdotblVou.Edit; OrdNo:=dmAcc.AdotblVou.fieldByName('OrdNo').AsInteger; Result:=dmAcc.AdotblVou.fieldByName('VOUNO').AsString; dmAcc.AdotblVouItems.Insert; if fDataSet.FieldByName('币别').AsString='USD' then begin dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccIDU; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat), 0); dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='USD'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat*UsdExRate), 0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; end else begin dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.DebitAccID; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fDataSet.fieldByName('合计金额').AsFloat),0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; end; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:=fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(fDataSet.fieldByName('客户名称').AsString,'收'); dmAcc.AdotblVouItems.FieldByName('QTYSPECS').AsString:=AccInfo.CustKindName; // 客户类型 dmAcc.AdotblVouItems.FieldByName('CorpBf').AsString:='F'; dmAcc.AdotblVouItems.FieldByName('DEPTID').AsString:=''; dmAcc.AdotblVouItems.FieldByName('EMPLID').AsString:=''; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; Amt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat*UsdExRate), 0); r_Taxes_inccome:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', (Amt/(1+frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100))*frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100), 0); if r_Taxes_inccome=0 then begin dmAcc.AdotblVouItems.Insert; if fDataSet.FieldByName('币别').AsString='USD' then begin dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ProfitAccIDU; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fDataSet.fieldByName('合计金额').AsFloat), 0); dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='USD'; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat*UsdExRate), 0); dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; end else begin dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ProfitAccID; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat), 0); dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; end; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='收入 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; end else begin if fDataSet.FieldByName('币别').AsString='USD' then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ProfitAccIDU; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',fDataSet.fieldByName('合计金额').AsFloat), 0); dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='USD'; Amt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat*UsdExRate), 0); r_Taxes_inccome:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', (Amt/(1+frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100))*frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100), 0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsString:=FormatFloat('0.00;-0.00;0',Amt-r_Taxes_inccome); dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='收入 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Income; Amt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat*UsdExRate), 0); r_Taxes_inccome:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', (Amt/(1+frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100))*frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100), 0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=r_Taxes_inccome; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='税金 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; end else begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ProfitAccIDU; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; Amt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat), 0); r_Taxes_inccome:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', (Amt/(1+frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100))*frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100), 0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsString:=FormatFloat('0.00;-0.00;0',Amt-r_Taxes_inccome); dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='收入 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Income; Amt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('合计金额').AsFloat), 0); r_Taxes_inccome:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', (Amt/(1+frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100))*frm_data_share.t_sys_company.fieldbyname('税率').AsFloat/100), 0); dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=r_Taxes_inccome; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='税金 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; end; end; ordno:=dmAcc.AdotblVou.fieldbyname('ordno').asinteger; finally end; end; function Tfrm_cw_pingzheng_yt.NewDrCrInvCr(fDataSet:TDataSet;Mblno,ZDR:String;voudate:TDate):String; var Dr,Cr,UDr,UCr,UDrttl,UCrttl,UsdExrate,r_Taxes_inccome,Amt,OrgAmt:Real; OrdNo:integer; aPeriod:String; begin Result:=''; Dr:=0.0; Cr:=0.0; UDr:=0.0; UCr:=0.0; r_Taxes_inccome:=0.0; Amt:=0.0; if fDataSet.FieldByName('币别').AsString='RMB' then UsdExRate:=1 else UsdExRate:=StrToFloatDef(Edit10.Text,7.8); try dmAcc.AdotblVou.Insert; dmAcc.AdotblVou.FieldByName('SourceType').AsInteger:=1; dmAcc.AdotblVou.FieldByName('ATTACHS').AsInteger:=AccInfo.ATTACHS; if Trim(AccInfo.TransName)<>'' then dmAcc.AdotblVou.FieldByName('VKNO').AsString:=AccInfo.TransName else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; dmAcc.AdotblVou.FieldByName('PREPARED').AsString:=RxDBLookupCombo6.DisplayValues[0]; dmAcc.AdotblVou.Post; dmAcc.AdotblVou.Edit; OrdNo:=dmAcc.AdotblVou.fieldByName('OrdNo').AsInteger; Result:=dmAcc.AdotblVou.fieldByName('VOUNO').AsString; OrgAmt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('实际金额').AsFloat), 0); Amt:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', fDataSet.fieldByName('实际金额').AsFloat*UsdExRate), 0); r_Taxes_inccome:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0', (Amt/(1+fDataSet.fieldbyname('税率').AsFloat/100))*fDataSet.fieldbyname('税率').AsFloat/100), 0); if r_Taxes_inccome=0 then begin if fDataSet.FieldByName('币别').AsString='USD' then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ImpProfitAccIDU; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',OrgAmt), 0); dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='USD'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=Amt; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='成本 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccIDU; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',OrgAmt), 0); dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='USD'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=Amt; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(fDataSet.fieldByName('客户名称').AsString,'付'); dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='应付 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; end else begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ImpProfitAccID; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDr').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=Amt; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='成本 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccID; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=Amt; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(fDataSet.fieldByName('客户名称').AsString,'付'); dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='应付 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; end; end else begin if fDataSet.FieldByName('币别').AsString='USD' then begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ImpProfitAccIDU; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',(Amt-r_Taxes_inccome)/UsdExRate), 0); dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='USD'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=Amt-r_Taxes_inccome; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='成本 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Cost; dmAcc.AdotblVouItems.FieldByName('FCYDr').AsFloat:=r_Taxes_inccome; dmAcc.AdotblVouItems.FieldByName('FCYCR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=r_Taxes_inccome; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='税金 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccIDU; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=UsdExRate; dmAcc.AdotblVouItems.FieldByName('FCYDR').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('FCYCr').AsFloat:=StrToFloatDef(FormatFloat('0.00;-0.00;0.0',OrgAmt), 0); dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='USD'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=Amt; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(fDataSet.fieldByName('客户名称').AsString,'付'); dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='应付 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; end else begin dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.ImpProfitAccID; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=1; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=Amt-r_Taxes_inccome; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='成本 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.Taxes_Cost; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=1; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=r_Taxes_inccome; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='税金 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; dmAcc.AdotblVouItems.Insert; dmAcc.AdotblVouItems.FieldByName('AccID').AsString:=AccInfo.CreditAccID; dmAcc.AdotblVouItems.FieldByName('FCYEXRATE').AsFloat:=1; dmAcc.AdotblVouItems.FieldByName('FCYNO').AsString:='RMB'; dmAcc.AdotblVouItems.FieldByName('AmtDr').AsFloat:=0.0; dmAcc.AdotblVouItems.FieldByName('AmtCr').AsFloat:=Amt; dmAcc.AdotblVouItems.FieldByName('CorpID').AsString:=GetCustID(fDataSet.fieldByName('客户名称').AsString,'付'); dmAcc.AdotblVouItems.FieldByName('EXPLAN').AsString:='应付 '+fDataSet.fieldByName('发票号码').AsString; dmAcc.AdotblVouItems.FieldByName('BSNO').AsString:=fDataSet.fieldByName('提单号').AsString; dmAcc.AdotblVouItems.Post; end; end; ordno:=dmAcc.AdotblVou.fieldbyname('ordno').asinteger; finally end; end; procedure Tfrm_cw_pingzheng_yt.CreateMemTbl; begin memTblVou.Close; memTblVou.Fields.Clear; with memTblVou.FieldDefs do begin Clear; Add('Selected', ftsmallint, 0, false); Add('status', ftsmallint, 0, false); Add('VOUDATE', ftDate, 0, false); Add('accyear', ftinteger, 0, false); Add('AccMonth', ftsmallint, 0, false); Add('VKNO', ftString, 8, false); Add('VOUNO',ftString,16,false); Add('ORDNO', ftinteger, 0, false); Add('AMTDR', ftFloat, 0, false); Add('AMTCR', ftFloat, 0, false); Add('ATTACHS', ftinteger, 0, false); Add('SourceType', ftinteger, 0, false); Add('PREPARED', ftString,10, false); memTblVou.CreateTable; end; end; function Tfrm_cw_pingzheng_yt.cw_client_yingshou_error():boolean; begin end; function Tfrm_cw_pingzheng_yt.cw_client_yingfu_error():boolean; begin end; function Tfrm_cw_pingzheng_yt.cw_client_shouru_error():boolean; begin end; function Tfrm_cw_pingzheng_yt.cw_client_chengben_error():boolean; begin end; function Tfrm_cw_pingzheng_yt.get_str(i:integer;Dc,CorpName:string;data:TDataSet):widestring; begin result:=''; if t_cw_design.fieldbyname('业务编号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('业务编号').asstring else result:=result+' '+data.fieldbyname('业务编号').asstring; end; if t_cw_design.fieldbyname('委托编号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('委托编号').asstring else result:=result+' '+data.fieldbyname('委托编号').asstring; end; case i of 1: begin if t_cw_design.fieldbyname('主提单号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('主提单号').asstring else result:=result+' '+data.fieldbyname('主提单号').asstring; end; if t_cw_design.fieldbyname('航期').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('开船日期').asstring else result:=result+' '+data.fieldbyname('开船日期').asstring; end; if t_cw_design.fieldbyname('船名').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('船名').asstring else result:=result+' '+data.fieldbyname('船名').asstring; end; if t_cw_design.fieldbyname('航次').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('航次').asstring else result:=result+' '+data.fieldbyname('航次').asstring; end; end; 2: begin if t_cw_design.fieldbyname('主提单号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('主提单号').asstring else result:=result+' '+data.fieldbyname('主提单号').asstring; end; if t_cw_design.fieldbyname('航期').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('进口日期').asstring else result:=result+' '+data.fieldbyname('进口日期').asstring; end; if t_cw_design.fieldbyname('船名').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('船名').asstring else result:=result+' '+data.fieldbyname('船名').asstring; end; if t_cw_design.fieldbyname('航次').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('航次').asstring else result:=result+' '+data.fieldbyname('航次').asstring; end; end; 3: begin if t_cw_design.fieldbyname('主提单号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('主运单号').asstring else result:=result+' '+data.fieldbyname('主运单号').asstring; end; if t_cw_design.fieldbyname('航期').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('一程开航日期').asstring else result:=result+' '+data.fieldbyname('一程开航日期').asstring; end; if t_cw_design.fieldbyname('船名').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('一程航班').asstring else result:=result+' '+data.fieldbyname('一程航班').asstring; end; end; 4: begin if t_cw_design.fieldbyname('主提单号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('主运单号').asstring else result:=result+' '+data.fieldbyname('主运单号').asstring; end; if t_cw_design.fieldbyname('航期').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('进口日期').asstring else result:=result+' '+data.fieldbyname('进口日期').asstring; end; if t_cw_design.fieldbyname('船名').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('航班号').asstring else result:=result+' '+data.fieldbyname('航班号').asstring; end; end; end; if t_cw_design.fieldbyname('客户名称').asboolean then begin if Dc<>'' then begin result:=result+' '+Dc; end; if Trim(result)='' then result:=CorpName else result:=result+' '+CorpName; end; end; function Tfrm_cw_pingzheng_yt.get_strProfit(i:integer;data:TDataSet):widestring; begin result:=''; if t_cw_design.fieldbyname('业务编号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('业务编号').asstring else result:=result+' '+data.fieldbyname('业务编号').asstring; end; if t_cw_design.fieldbyname('委托编号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('委托编号').asstring else result:=result+' '+data.fieldbyname('委托编号').asstring; end; case i of 1: begin if t_cw_design.fieldbyname('主提单号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('主提单号').asstring else result:=result+' '+data.fieldbyname('主提单号').asstring; end; if t_cw_design.fieldbyname('航期').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('开船日期').asstring else result:=result+' '+data.fieldbyname('开船日期').asstring; end; end; 2: begin if t_cw_design.fieldbyname('主提单号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('主提单号').asstring else result:=result+' '+data.fieldbyname('主提单号').asstring; end; if t_cw_design.fieldbyname('航期').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('进口日期').asstring else result:=result+' '+data.fieldbyname('进口日期').asstring; end; end; 3: begin if t_cw_design.fieldbyname('主提单号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('主运单号').asstring else result:=result+' '+data.fieldbyname('主运单号').asstring; end; if t_cw_design.fieldbyname('航期').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('一程开航日期').asstring else result:=result+' '+data.fieldbyname('一程开航日期').asstring; end; end; 4: begin if t_cw_design.fieldbyname('主提单号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('主运单号').asstring else result:=result+' '+data.fieldbyname('主运单号').asstring; end; if t_cw_design.fieldbyname('航期').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('进口日期').asstring else result:=result+' '+data.fieldbyname('进口日期').asstring; end; end; end; result:=result+' '+'利润'+' '; end; function Tfrm_cw_pingzheng_yt.get_strDc(data:TDataSet):widestring; begin result:=data.fieldbyname('收付').asstring; if t_cw_design.fieldbyname('收付业务编号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('业务编号').asstring else result:=result+' '+data.fieldbyname('业务编号').asstring; end; if t_cw_design.fieldbyname('收付委托编号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('委托编号').asstring else result:=result+' '+data.fieldbyname('委托编号').asstring; end; if t_cw_design.fieldbyname('收付主提单号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('主提单号').asstring else result:=result+' '+data.fieldbyname('主提单号').asstring; end; if t_cw_design.fieldbyname('收付客户名称').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('客户名称').asstring else result:=result+' '+data.fieldbyname('客户名称').asstring; end; end; function Tfrm_cw_pingzheng_yt.get_strInvoice(data:TDataSet):widestring; begin result:=''; if t_cw_design.fieldbyname('业务编号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('业务编号').asstring else result:=result+' '+data.fieldbyname('业务编号').asstring; end; if t_cw_design.fieldbyname('委托编号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('委托编号').asstring else result:=result+' '+data.fieldbyname('委托编号').asstring; end; if t_cw_design.fieldbyname('主提单号').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('主提单号').asstring else result:=result+' '+data.fieldbyname('主提单号').asstring; end; if t_cw_design.fieldbyname('客户名称').asboolean then begin if Trim(result)='' then result:=data.fieldbyname('客户名称').asstring else result:=result+' '+data.fieldbyname('客户名称').asstring; end; end; function Tfrm_cw_pingzheng_yt.get_billStr(bsNo:string):string; var aQuery:TADOQuery; begin Result:=''; aQuery:=CreateAdoQuery; with aQuery,SQL do try Close;Clear; Add('Select Top 1 委托编号,主提单号'); Add('from v_fee_balance_items '); Add('where 工作编号='''+bsNo+''''); Open; Result:=FieldByName('委托编号').AsString+' '+FieldByName('主提单号').AsString; finally Free; end; end; procedure Tfrm_cw_pingzheng_yt.cw_add_1(op_type:integer); var num_accept_rmb,num_accept_usd,num_accept_all,num_pay_rmb,num_pay_usd,num_pay_all:real; bill_count:integer; if_do:boolean; get_date:Tdatetime; begin { } end; procedure Tfrm_cw_pingzheng_yt.FormShow(Sender: TObject); var str:widestring; begin loadreggrid(dxdbgrid1,true,caption+'1'); loadreggrid(dxdbgrid2,true,caption+'2'); loadreggrid(dxdbgrid3,true,caption+'3'); loadreggrid(dxdbgrid4,true,caption+'4'); loadreggrid(dxdbgrid5,true,caption+'5'); loadreggrid(dxdbgrid6,true,caption+'6'); loadreggrid(dxdbgrid7,true,caption+'7'); loadreggrid(dxdbgrid8,true,caption+'8'); t_cw_design.open; t_Accitems.Open; AccInfo.ACCSys:=t_cw_design.fieldbyname('财务软件').AsInteger; AccInfo.DebitAccID:=trim(t_cw_design.fieldbyname('应收账款').AsString); AccInfo.DebitAccIDU:=t_cw_design.fieldbyname('应收账款外币').AsString; AccInfo.CreditAccID:=t_cw_design.fieldbyname('应付账款').AsString; AccInfo.CreditAccIDU:=t_cw_design.fieldbyname('应付账款外币').AsString; AccInfo.ProfitAccID:=t_cw_design.fieldbyname('主营业务收入').AsString; AccInfo.ImpProfitAccID:=t_cw_design.fieldbyname('主营业务支出').AsString; AccInfo.ProfitAccIDU:=t_cw_design.fieldbyname('主营收入外币').AsString; AccInfo.ImpProfitAccIDU:=t_cw_design.fieldbyname('主营支出外币').AsString; AccInfo.AirProfitAccID:=t_cw_design.fieldbyname('空运主营业务收入').AsString; AccInfo.AirImpProfitAccID:=t_cw_design.fieldbyname('空运主营业务支出').AsString; AccInfo.AirProfitAccIDU:=t_cw_design.fieldbyname('空运主营收入外币').AsString; AccInfo.AirImpProfitAccIDU:=t_cw_design.fieldbyname('空运主营支出外币').AsString; AccInfo.Taxes_Income:=t_cw_design.fieldbyname('销项税').AsString; AccInfo.Taxes_Cost:=t_cw_design.fieldbyname('进项税').AsString; AccInfo.PreTaxes_Income:=t_cw_design.fieldbyname('预提销项税').AsString; AccInfo.PreTaxes_Cost:=t_cw_design.fieldbyname('预提进项税').AsString; AccInfo.ifPreTaxes:=t_cw_design.fieldbyname('是否预提销项税').AsBoolean; AccInfo.ifvat:=t_cw_design.fieldbyname('生成增值税分录').AsBoolean; AccInfo.ExchangeGLID:=trim(t_cw_design.fieldbyname('汇兑损益').AsString); AccInfo.OtherDebitAccID:=trim(t_cw_design.fieldbyname('其他应收').AsString); AccInfo.OtherCreditAccID:=t_cw_design.fieldbyname('其他应付').AsString; AccInfo.AccItem:=t_cw_design.fieldbyname('使用核算项目生成分录').AsInteger; AccInfo.ProfitFull:=t_cw_design.fieldbyname('核算办法').AsInteger; AccInfo.ICUSD:=t_cw_design.fieldbyname('收入成本是否核算美元').AsInteger; AccInfo.TransName:=trim(t_cw_design.fieldbyname('转帐凭证字').AsString); AccInfo.CashDrName:=trim(t_cw_design.fieldbyname('现金收款凭证字').AsString); AccInfo.CashCrName:=trim(t_cw_design.fieldbyname('现金付款凭证字').AsString); AccInfo.BankDrName:=trim(t_cw_design.fieldbyname('银行收款凭证字').AsString); AccInfo.BankCrName:=trim(t_cw_design.fieldbyname('银行付款凭证字').AsString); AccInfo.CustKindName:=trim(t_cw_design.fieldbyname('客户核算名称').AsString); AccInfo.SuppKindName:=trim(t_cw_design.fieldbyname('供应商核算名称').AsString); AccInfo.DeptKindName:=trim(t_cw_design.fieldbyname('部门核算名称').AsString); AccInfo.SaleKindName:=trim(t_cw_design.fieldbyname('人员核算名称').AsString); AccInfo.ATTACHS:=t_cw_design.fieldbyname('附件数量').AsInteger; CreateMemTbl; wwDBDateTimePicker21.Date:=now; RxDBLookupCombo6.DisplayValue:=employee; { with SQLConnectionAcc do begin // Params.LoadFromFile(ExtractFilePath(ParamStr(0))+'Account.ini'); try Connected:=true; except exit; end; end; } // tblObj.Open; { with SQLConnectionAcc2 do begin // Params.LoadFromFile(ExtractFilePath(ParamStr(0))+'Account.ini'); try Connected:=true; except exit; end; end; tblitems2.Open; } // tblCustomer.Open; // tblAgent.Open; // tblAccID.Open; end; procedure Tfrm_cw_pingzheng_yt.FormClose(Sender: TObject; var Action: TCloseAction); begin savereggrid(dxdbgrid1,caption+'1'); savereggrid(dxdbgrid2,caption+'2'); savereggrid(dxdbgrid3,caption+'3'); savereggrid(dxdbgrid4,caption+'4'); savereggrid(dxdbgrid5,caption+'5'); savereggrid(dxdbgrid6,caption+'6'); savereggrid(dxdbgrid7,caption+'7'); savereggrid(dxdbgrid8,caption+'8'); tblVouitems.DatabaseName:=''; tblVouitems.TableName:=''; DatabaseVouitems.DatabaseName:=''; DatabaseVouitems.AliasName:=''; tblVouitems.Close; DatabaseVouitems.Connected:=false; DatabaseVouitems.KeepConnection:=false; // tblVouitems.Free; // DatabaseVouitems.Free; DatabaseVouitems.CloseDataSets; DatabaseVouitems.Destroy; frm_cw_pingzheng_open:=false; frm_cw_load_iflog:=false; frm_cw_pingzheng_yt.Hide; frm_cw_pingzheng_yt.ManualFloat(frm_cw_pingzheng_yt.BoundsRect); frm_main.freeTabs('frm_cw_pingzheng_yt'); action:=cafree; frm_cw_pingzheng_yt:=nil; end; procedure Tfrm_cw_pingzheng_yt.bsSkinPageControl1Change(Sender: TObject); begin if frm_cw_pingzheng_open then begin t_op_seae.close; t_op_seai.close; t_op_aire.close; t_op_airi.close; t_ch_invoice.close; end; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton10Click(Sender: TObject); var str:widestring; begin str:='where t_op_seae.费用状态='+''''+'费用封帐'+''''; // str:='where 1=1 '; if not bsSkinCheckRadioBox1.Checked then str:=str+' and (t_op_seae.财务 is null or t_op_seae.财务=0)'; if Edit4.text<>'' then begin if Edit11.text<>'' then str:=str+' and t_op_seae.业务编号>='+''''+Edit4.text+''''+' and t_op_seae.业务编号<='+''''+Edit11.text+'''' else str:=str+' and t_op_seae.业务编号 like '+''''+'%'+Edit4.text+'%'+''''; end; if Edit16.text<>'' then begin if Edit17.text<>'' then str:=str+' and t_op_seae.财务凭证>='+''''+Edit16.text+''''+' and t_op_seae.财务凭证<='+''''+Edit17.text+'''' else str:=str+' and t_op_seae.财务凭证 like '+''''+'%'+Edit16.text+'%'+''''; end; if RxDBLookupCombo4.DisplayValue<>''then str:=str+' and t_op_seae.销售部门='+''''+RxDBLookupCombo4.DisplayValues[0]+''''; if RxDBLookupCombo1.DisplayValue<>''then str:=str+' and t_op_seae.揽货人='+''''+RxDBLookupCombo1.DisplayValues[0]+''''; if wwDBLookupCombo49.Text<>''then str:=str+' and t_op_seae.船名='+''''+wwDBLookupCombo49.Text+''''; if Edit34.Text<>''then str:=str+' and t_op_seae.航次='+''''+Edit34.Text+''''; if Edit41.Text<>''then str:=str+' and t_op_seae.委托编号='+''''+Edit41.Text+''''; if RxDBLookupCombo3.DisplayValue<>''then str:=str+' and t_op_seae.业务编号 in (select distinct bsno from v_vouitems where prepared='+''''+RxDBLookupCombo3.DisplayValues[0]+''''+')'; if Edit2.text<>'' then str:=str+' and t_op_seae.主提单号 like '+''''+'%'+Edit2.text+'%'+''''; if wwDBDateTimePicker1.text<>''then str:=str+' and t_op_seae.开船日期>='+''''+wwDBDateTimePicker1.text+''''; if wwDBDateTimePicker2.text<>''then str:=str+' and t_op_seae.开船日期<='+''''+wwDBDateTimePicker2.text+''''; if wwDBDateTimePicker3.text<>''then str:=str+' and t_op_seae.会计期间>='+''''+wwDBDateTimePicker3.text+''''; if wwDBDateTimePicker4.text<>''then str:=str+' and t_op_seae.会计期间<='+''''+wwDBDateTimePicker4.text+''''; if wwDBDateTimePicker28.text<>''then str:=str+' and t_op_seae.费用封帐日期>='+''''+wwDBDateTimePicker28.text+''''; if wwDBDateTimePicker29.text<>''then str:=str+' and t_op_seae.费用封帐日期<='+''''+wwDBDateTimePicker29.text+''''; if Edit14.text<>'' then str:=str+' and t_op_seae.委托编号 like '+''''+'%'+Edit14.text+'%'+''''; t_op_seae.close; t_op_seae.sql.clear; t_op_seae.sql.add('select t_op_seae.*,t_op_gain.* from t_op_seae left join t_op_gain on t_op_seae.编号=t_op_gain.编号 '+str+' order by t_op_seae.业务编号'); t_op_seae.open; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton3Click(Sender: TObject); begin Edit4.text:=''; Edit2.text:=''; wwDBDateTimePicker1.text:=''; wwDBDateTimePicker2.text:=''; wwDBDateTimePicker3.text:=''; wwDBDateTimePicker4.text:=''; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton4Click(Sender: TObject); var str:widestring; begin str:='where 费用状态='+''''+'费用封帐'+''''; // str:='where 1=1 '; if not bsSkinCheckRadioBox2.Checked then str:=str+' and (财务 is null or 财务=0)'; if Edit1.text<>'' then begin if Edit13.text<>'' then str:=str+' and 业务编号>='+''''+Edit1.text+''''+' and 业务编号<='+''''+Edit13.text+'''' else str:=str+' and 业务编号 like '+''''+'%'+Edit1.text+'%'+''''; end; if wwDBLookupCombo1.Text<>''then str:=str+' and 船名='+''''+wwDBLookupCombo1.Text+''''; if Edit35.Text<>''then str:=str+' and 航次='+''''+Edit35.Text+''''; if Edit18.text<>'' then begin if Edit19.text<>'' then str:=str+' and 财务凭证>='+''''+Edit18.text+''''+' and 财务凭证<='+''''+Edit19.text+'''' else str:=str+' and 财务凭证 like '+''''+'%'+Edit18.text+'%'+''''; end; if RxDBLookupCombo8.DisplayValue<>''then str:=str+' and 销售部门='+''''+RxDBLookupCombo8.DisplayValues[0]+''''; if RxDBLookupCombo9.DisplayValue<>''then str:=str+' and 揽货人='+''''+RxDBLookupCombo9.DisplayValues[0]+''''; if RxDBLookupCombo10.DisplayValue<>''then str:=str+' and 业务编号 in (select distinct bsno from v_vouitems where prepared='+''''+RxDBLookupCombo10.DisplayValues[0]+''''+')'; if Edit3.text<>''then str:=str+' and 主提单号 like '+''''+'%'+Edit3.text+'%'+''''; if wwDBDateTimePicker5.text<>''then str:=str+' and 进口日期>='+''''+wwDBDateTimePicker5.text+''''; if wwDBDateTimePicker6.text<>''then str:=str+' and 进口日期<='+''''+wwDBDateTimePicker6.text+''''; if wwDBDateTimePicker7.text<>''then str:=str+' and 会计期间>='+''''+wwDBDateTimePicker7.text+''''; if wwDBDateTimePicker8.text<>''then str:=str+' and 会计期间<='+''''+wwDBDateTimePicker8.text+''''; t_op_seai.close; t_op_seai.sql.clear; t_op_seai.sql.add('select * from t_op_seai '+str+' order by 业务编号'); t_op_seai.open; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton6Click(Sender: TObject); begin Edit1.text:=''; Edit3.text:=''; wwDBDateTimePicker5.text:=''; wwDBDateTimePicker6.text:=''; wwDBDateTimePicker7.text:=''; wwDBDateTimePicker8.text:=''; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton7Click(Sender: TObject); var i,ordno:integer; aQuery:TAdoQuery; begin NewBsVoucher(2,'t_op_seai','主提单号',dxDBGrid5,t_op_seai); { if wwDBDateTimePicker21.Text='' then begin MessageDlg('请首先设置记账日期！',mterror,[mbyes],0); exit; end; if RxDBLookupCombo6.DisplayValue='' then begin MessageDlg('请首先设置制单人！',mterror,[mbyes],0); exit; end; dmacc:=TdmAcc.Create(self); aQuery:=CreateAdoQuery; try dmAcc.ADOtblVou.Open; dmAcc.ADOtblVouItems.Open; aVKNO:=1; aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update t_op_seai set 财务=1,财务凭证=:财务凭证 where 业务编号=:业务编号'); VoucherDate:=wwDBDateTimePicker21.Date; if DBGridEh4.SelectedRows.Count>1 then begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); try frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=DBGridEh4.SelectedRows.Count; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; for i:=0 to DBGridEh4.SelectedRows.Count-1 do begin t_op_seai.GotoBookmark(Pointer(DBGridEh4.SelectedRows.Items[I])); if t_op_seai['财务'] then begin MessageDlg('业务编号:'+t_op_seai['业务编号']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin NewDrCrVou(t_op_seai,2,t_op_seai['主提单号'],wwDBDateTimePicker21.Date,''); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('业务编号').Value:=t_op_seai.fieldbyname('业务编号').AsString; aQuery.ExecSQL; end; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; end; finally freeAndNil(frm_sys_progress); end; end else begin NewDrCrVou(t_op_seai,2,t_op_seai['主提单号'],wwDBDateTimePicker21.Date,''); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('业务编号').Value:=t_op_seai.fieldbyname('业务编号').AsString; aQuery.ExecSQL; end; finally dmAcc.AdotblVouItems.Close; dmAcc.AdotblVou.Close; freeAndNil(dmacc); end; bsSkinButton4.OnClick(sender); } end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton8Click(Sender: TObject); var aQuery:TADOQuery; Str:String; begin if not bsSkinCheckRadioBox6.checked then str:=str+' and v.Status=0 '; if wwDBDateTimePicker19.text<>''then str:=str+' and v.voudate>='+''''+wwDBDateTimePicker19.text+''''; if wwDBDateTimePicker20.text<>''then str:=str+' and v.voudate<='+''''+wwDBDateTimePicker20.text+''''; if EditOrdNoFrm.text<>''then str:=str+' and v.ordno>='+''+EditOrdNoFrm.text+''; if EditOrdNoTo.text<>''then str:=str+' and v.ordno<='+''+EditOrdNoTo.text+''; if RxDBLookupCombo5.DisplayValue<>''then str:=str+' and v.prepared='+''''+RxDBLookupCombo5.DisplayValues[0]+''''; aQuery:=CreateAdoQuery; try with aQuery do begin Close;SQL.Clear; SQL.Add('Select 0 selected,V.* from Vouchers V where 1=1 '); SQL.Add(str); SQL.Add('Order by V.ORDNO'); Open; end; memTblVou.LoadFromDataSet(aQuery,[]); finally freeAndNil(aQuery); end; if memtblvou.IsEmpty then exit; qryVouitems.Close; qryVouitems.sql.Clear; qryVouitems.SQL.Add('select * from vouitems where ordno=:ordno order by ordno,itemno'); qryVouitems.Open; qryVouitems_sum.Close; qryVouitems_sum.sql.Clear; qryVouitems_sum.SQL.Add('select ordno,sum(AmtDr) AmtDr, sum(AmtCr) AmtCr, sum(FcyDr) FcyDr, sum(FcyCr) FcyCr,sum(FcyDr*FCYEXRATE) FcyDrtoRmb, sum(FcyCr*FCYEXRATE) FcyCrtoRmb'); qryVouitems_sum.SQL.Add('from vouitems'); qryVouitems_sum.SQL.Add('where ordno=:ordno'); qryVouitems_sum.SQL.Add('Group by ordno'); qryVouitems_sum.SQL.Add('order by ordno'); qryVouitems_sum.Open; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton9Click(Sender: TObject); var str:widestring; begin str:='where 费用状态='+''''+'费用封帐'+''''; // str:='where 1=1 '; if not bsSkinCheckRadioBox3.Checked then str:=Str+' and (财务 is null or 财务=0)'; if Edit5.text<>'' then begin if Edit14.text<>'' then str:=str+' and 业务编号>='+''''+Edit5.text+''''+' and 业务编号<='+''''+Edit14.text+'''' else str:=str+' and 业务编号 like '+''''+'%'+Edit5.text+'%'+''''; end; if Edit20.text<>'' then begin if Edit21.text<>'' then str:=str+' and 财务凭证>='+''''+Edit20.text+''''+' and 财务凭证<='+''''+Edit21.text+'''' else str:=str+' and 财务凭证 like '+''''+'%'+Edit20.text+'%'+''''; end; if RxDBLookupCombo11.DisplayValue<>''then str:=str+' and 销售部门='+''''+RxDBLookupCombo11.DisplayValues[0]+''''; if RxDBLookupCombo12.DisplayValue<>''then str:=str+' and 揽货人='+''''+RxDBLookupCombo12.DisplayValues[0]+''''; if RxDBLookupCombo13.DisplayValue<>''then str:=str+' and 业务编号 in (select distinct bsno from v_vouitems where prepared='+''''+RxDBLookupCombo13.DisplayValues[0]+''''+')'; if Edit6.text<>''then str:=str+' and 主运单号 like '+''''+'%'+Edit6.text+'%'+''''; if wwDBDateTimePicker9.text<>''then str:=str+' and 一程开航日期>='+''''+wwDBDateTimePicker9.text+''''; if wwDBDateTimePicker10.text<>''then str:=str+' and 一程开航日期<='+''''+wwDBDateTimePicker10.text+''''; if wwDBDateTimePicker11.text<>''then str:=str+' and 会计期间>='+''''+wwDBDateTimePicker11.text+''''; if wwDBDateTimePicker12.text<>''then str:=str+' and 会计期间<='+''''+wwDBDateTimePicker12.text+''''; if wwDBDateTimePicker30.text<>''then str:=str+' and 费用封帐日期>='+''''+wwDBDateTimePicker30.text+''''; if wwDBDateTimePicker31.text<>''then str:=str+' and 费用封帐日期<='+''''+wwDBDateTimePicker31.text+''''; if Edit42.text<>'' then str:=str+' and 委托编号 like '+''''+'%'+Edit42.text+'%'+''''; t_op_aire.close; t_op_aire.sql.clear; t_op_aire.sql.add('select * from t_op_aire '+str+' order by 业务编号'); t_op_aire.open; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton11Click(Sender: TObject); begin Edit5.text:=''; Edit6.text:=''; wwDBDateTimePicker9.text:=''; wwDBDateTimePicker10.text:=''; wwDBDateTimePicker11.text:=''; wwDBDateTimePicker12.text:=''; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton14Click(Sender: TObject); var str:widestring; begin str:='where 费用状态='+''''+'费用封帐'+''''; // str:='where 1=1 '; if not bsSkinCheckRadioBox4.Checked then str:=Str+' and (财务 is null or 财务=0)'; if Edit7.text<>'' then begin if Edit15.text<>'' then str:=str+' and 业务编号>='+''''+Edit7.text+''''+' and 业务编号<='+''''+Edit15.text+'''' else str:=str+' and 业务编号 like '+''''+'%'+Edit7.text+'%'+''''; end; if Edit22.text<>'' then begin if Edit23.text<>'' then str:=str+' and 财务凭证>='+''''+Edit22.text+''''+' and 财务凭证<='+''''+Edit23.text+'''' else str:=str+' and 财务凭证 like '+''''+'%'+Edit22.text+'%'+''''; end; if RxDBLookupCombo14.DisplayValue<>''then str:=str+' and 销售部门='+''''+RxDBLookupCombo14.DisplayValues[0]+''''; if RxDBLookupCombo15.DisplayValue<>''then str:=str+' and 揽货人='+''''+RxDBLookupCombo15.DisplayValues[0]+''''; if RxDBLookupCombo16.DisplayValue<>''then str:=str+' and 业务编号 in (select distinct bsno from v_vouitems where prepared='+''''+RxDBLookupCombo16.DisplayValues[0]+''''+')'; if Edit8.text<>''then str:=str+' and 主运单号 like '+''''+'%'+Edit8.text+'%'+''''; if wwDBDateTimePicker13.text<>''then str:=str+' and 进口日期>='+''''+wwDBDateTimePicker13.text+''''; if wwDBDateTimePicker14.text<>''then str:=str+' and 进口日期<='+''''+wwDBDateTimePicker14.text+''''; if wwDBDateTimePicker15.text<>''then str:=str+' and 会计期间>='+''''+wwDBDateTimePicker15.text+''''; if wwDBDateTimePicker16.text<>''then str:=str+' and 会计期间<='+''''+wwDBDateTimePicker16.text+''''; t_op_airi.close; t_op_airi.sql.clear; t_op_airi.sql.add('select * from t_op_airi '+str+' order by 业务编号'); t_op_airi.open; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton15Click(Sender: TObject); begin Edit7.text:=''; Edit8.text:=''; wwDBDateTimePicker13.text:=''; wwDBDateTimePicker14.text:=''; wwDBDateTimePicker15.text:=''; wwDBDateTimePicker16.text:=''; end; procedure Tfrm_cw_pingzheng_yt.NewBsVoucher(bstype:integer;TableName,BsField:string;Dbgrid1:TDxDBGrid;aDataset:TADOQuery); var i,ordno:integer; aQuery:TAdoQuery; Explan:string; bsList,s:string; begin if wwDBDateTimePicker21.Text='' then begin MessageDlg('请首先设置记账日期！',mterror,[mbyes],0); exit; end; if RxDBLookupCombo6.DisplayValue='' then begin MessageDlg('请首先设置制单人！',mterror,[mbyes],0); exit; end; s:=''; s:=checkbsVoucher(Dbgrid1,aDataset); if s<>'' then begin ShowMessage('东胜检查:'+s); exit; end; dmacc:=TdmAcc.Create(self); aQuery:=CreateAdoQuery; try dmAcc.ADOtblVou.Open; dmAcc.ADOtblVouItems.Open; aVKNO:=1; VoucherDate:=wwDBDateTimePicker21.Date; if Dbgrid1.SelectedCount>1 then begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); try frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=Dbgrid1.SelectedCount; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; bsList:=''; for i:=0 to Dbgrid1.SelectedCount-1 do begin aDataset.GotoBookmark(Pointer(Dbgrid1.selectedrows[I]));; if aDataset['财务'] then begin MessageDlg('业务编号:'+aDataset['业务编号']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin bsList:=''''+aDataset.fieldbyname('编号').AsString+''''; NewDrCrVou(aDataset,bstype,aDataset.FieldByName(BsField).AsString,wwDBDateTimePicker21.Date,bsList); aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update '+ TableName+' set 财务=1,财务凭证=:财务凭证 where 编号 in ('+bsList+')'); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.ExecSQL; end; end ; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; finally freeAndNil(frm_sys_progress); end; end else begin if aDataset['财务'] then begin MessageDlg('业务编号:'+aDataset['业务编号']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin bsList:=''''+aDataset.fieldbyname('编号').AsString+''''; NewDrCrVou(aDataset,bstype,aDataset.FieldByName(BsField).AsString,wwDBDateTimePicker21.Date,bsList); aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update '+ TableName+' set 财务=1,财务凭证=:财务凭证 where 编号 in ('+bsList+')'); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.ExecSQL; end; end; finally dmAcc.AdotblVouItems.Close; dmAcc.AdotblVou.Close; freeAndNil(dmacc); aDataset.Requery(); end; // bsSkinButton10.OnClick(sender); end; {procedure Tfrm_cw_pingzheng.NewBsVoucher(bstype:integer;TableName,BsField:string;Dbgrid1:TDBGridEh;aDataset:TADOQuery); var i,ordno:integer; aQuery:TAdoQuery; Explan:string; bsList:string; begin if wwDBDateTimePicker21.Text='' then begin MessageDlg('请首先设置记账日期！',mterror,[mbyes],0); exit; end; if RxDBLookupCombo6.DisplayValue='' then begin MessageDlg('请首先设置制单人！',mterror,[mbyes],0); exit; end; dmacc:=TdmAcc.Create(self); aQuery:=CreateAdoQuery; try dmAcc.ADOtblVou.Open; dmAcc.ADOtblVouItems.Open; aVKNO:=1; VoucherDate:=wwDBDateTimePicker21.Date; if Dbgrid1.SelectedRows.Count>1 then begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); try frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=Dbgrid1.SelectedRows.Count; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; bsList:=''; for i:=0 to Dbgrid1.SelectedRows.Count-1 do begin aDataset.GotoBookmark(Pointer(Dbgrid1.SelectedRows.Items[I])); if not t_cw_design.fieldbyname('根据船名航次生成凭证').asboolean then begin if aDataset['财务'] then begin MessageDlg('业务编号:'+aDataset['业务编号']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin bsList:=''''+aDataset.fieldbyname('编号').AsString+''''; NewDrCrVou(aDataset,bstype,aDataset[BsField],wwDBDateTimePicker21.Date,bsList); aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update '+ TableName+' set 财务=1,财务凭证=:财务凭证 where 编号 in ('+bsList+')'); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.ExecSQL; end; end else begin // if aDataset['财务'] then begin MessageDlg('业务编号:'+aDataset['业务编号']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin if bsList='' then bsList:=''''+aDataset.fieldbyname('编号').AsString+'''' else bsList:=bsList+','+''''+aDataset.fieldbyname('编号').AsString+''''; end; end; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; end; if t_cw_design.fieldbyname('根据船名航次生成凭证').asboolean then begin NewDrCrVou(aDataset,bstype,aDataset[BsField],wwDBDateTimePicker21.Date,bsList); aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update '+ TableName+' set 财务=1,财务凭证=:财务凭证 where 编号 in ('+bsList+')'); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.ExecSQL; end; finally freeAndNil(frm_sys_progress); end; end else begin if aDataset['财务'] then begin MessageDlg('业务编号:'+aDataset['业务编号']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin bsList:=''''+aDataset.fieldbyname('编号').AsString+''''; NewDrCrVou(aDataset,bstype,aDataset[BsField],wwDBDateTimePicker21.Date,bsList); aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update '+ TableName+' set 财务=1,财务凭证=:财务凭证 where 编号 in ('+bsList+')'); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.ExecSQL; end; end; finally dmAcc.AdotblVouItems.Close; dmAcc.AdotblVou.Close; freeAndNil(dmacc); aDataset.Requery(); end; // bsSkinButton10.OnClick(sender); end; } procedure Tfrm_cw_pingzheng_yt.bsSkinButton1Click(Sender: TObject); var i,ordno:integer; aQuery:TAdoQuery; Explan:string; bsList:string; begin NewBsVoucher(1,'t_op_seae','主提单号',dxDBGrid4,t_op_seae); end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton18Click(Sender: TObject); var Str:String; begin str:='where 1=1 and 帐单编号<>'''''; if not bsSkinCheckRadioBox5.Checked then str:=str+' and (财务 is null or 财务=0)' else str:=str+' and (财务 is null or 财务=0 or 财务=1)'; if Edit9.text<>''then str:=str+' and 帐单编号 like '+''''+'%'+Edit9.text+'%'+''''; if Edit12.text<>''then str:=str+' and 结算金额='+Trim(Edit12.text); if RxDBLookupCombo2.DisplayValue<>''then str:=str+' and 客户名称 ='+''''+RxDBLookupCombo2.DisplayValues[1]+''''; if RxDBLookupCombo7.DisplayValue<>''then str:=str+' and 结算人 ='+''''+RxDBLookupCombo7.DisplayValues[0]+''''; if wwDBDateTimePicker17.text<>''then str:=str+' and 结算日期>='+''''+wwDBDateTimePicker17.text+''''; if wwDBDateTimePicker18.text<>''then str:=str+' and 结算日期<='+''''+wwDBDateTimePicker18.text+''''; if wwDBComboBox1.Text<>'' then begin if wwDBComboBox1.ItemIndex=0 then str:=str+' and 类型=''收''' else str:=str+' and 类型=''付'''; end; t_op_balance.close; t_op_balance.sql.clear; t_op_balance.sql.add('select * from t_ch_balance '+str+' order by 帐单编号'); t_op_balance.open; t_op_balance_items.Close; t_op_balance_items.Open; end; procedure Tfrm_cw_pingzheng_yt.NewDCVou_one; var i,ordno:integer; aQuery:TAdoQuery; aModal:TModalResult; mAccOK:boolean; begin if wwDBDateTimePicker21.Text='' then begin MessageDlg('请首先设置记账日期！',mterror,[mbyes],0); exit; end; if RxDBLookupCombo6.DisplayValue='' then begin MessageDlg('请首先设置制单人！',mterror,[mbyes],0); exit; end; dmacc:=TdmAcc.Create(self); aQuery:=CreateAdoQuery; // try dmAcc.ADOtblVou.Open; dmAcc.ADOtblVouItems.Open; aVKNO:=1; aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update t_ch_balance set 财务=1,财务凭证=:财务凭证 where 帐单编号=:帐单编号'); VoucherDate:=wwDBDateTimePicker21.Date; // try dmAcc.AdotblVou.Insert; dmAcc.AdotblVou.FieldByName('SourceType').AsInteger:=2; dmAcc.AdotblVou.FieldByName('ATTACHS').AsInteger:=AccInfo.ATTACHS; if Trim(t_op_balance.FieldByName('类型').AsString)='收' then begin if Trim(t_cw_design.FieldByName('银行收款凭证字').AsString)<>'' then begin dmAcc.AdotblVou.FieldByName('VKNO').AsString:=Trim(t_cw_design.FieldByName('银行收款凭证字').AsString); end else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; end else begin if Trim(t_cw_design.FieldByName('银行付款凭证字').AsString)<>'' then begin dmAcc.AdotblVou.FieldByName('VKNO').AsString:=Trim(t_cw_design.FieldByName('银行付款凭证字').AsString); end else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; end; { if Trim(AccInfo.TransName)<>'' then dmAcc.AdotblVou.FieldByName('VKNO').AsString:=AccInfo.TransName else dmAcc.AdotblVou.FieldByName('VKNO').AsString:='记'; } dmAcc.AdotblVou.FieldByName('PREPARED').AsString:=RxDBLookupCombo6.DisplayValues[0]; dmAcc.AdotblVou.Post; dmAcc.AdotblVou.Edit; // cxGrid1DBTableView1.Controller..SelectedRowCount if dxDBGrid2.SelectedCount>1 then begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); // try frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=dxDBGrid2.SelectedCount; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; for i:=0 to dxDBGrid2.SelectedCount-1 do begin t_op_balance.GotoBookmark(Pointer(dxDBGrid2.selectedrows[I])); if t_op_balance['财务'] then begin MessageDlg('帐单编号:'+t_op_balance.fieldbyname('帐单编号').AsString+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin NewDCVou_Patch(t_op_balance,RxDBLookupCombo6.DisplayValues[0],wwDBDateTimePicker21.Date); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('帐单编号').Value:=t_op_balance.fieldbyname('帐单编号').AsString; aQuery.ExecSQL; end; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; end; // finally freeAndNil(frm_sys_progress); // end; end else begin NewDCVou_Patch(t_op_balance,RxDBLookupCombo6.DisplayValues[0],wwDBDateTimePicker21.Date); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('帐单编号').Value:=t_op_balance.fieldbyname('帐单编号').AsString; aQuery.ExecSQL; end; ordno:=dmAcc.AdotblVou.fieldbyname('ordno').asinteger; dmAcc.AdotblVou.Post; FrmVouItemStl:=TFrmVouItemStl.Create(Application); // try dmACC.AdotblVouItems.Last; FrmVouItemStl.DBGridVouItems.SelectedField:=dmACC.AdotblVouItems.FieldByName('AccID'); FrmVouItemStl.ShowModal; mAccOK:=false; aModal:=frmVouItemStl.ModalResult; mAccOK:=aModal=mrok; if mAccOK then begin if dmAcc.AdotblVouItems.State in [dsEdit,dsInsert] then dmAcc.AdotblVouItems.Post; if dmAcc.AdotblVou.State in [dsEdit,dsInsert] then dmAcc.AdotblVou.Post; end else begin dmAcc.TempQuery.Close; dmAcc.TempQuery.SQL.Clear; dmAcc.TempQuery.SQL.Add('delete from vouchers where ordno=:mOrdNo'); dmAcc.TempQuery.Parameters.ParamByName('mOrdNo').value:=OrdNo; dmAcc.TempQuery.ExecSQL; dmAcc.TempQuery.Close; dmAcc.TempQuery.SQL.Clear; dmAcc.TempQuery.SQL.Add('update t_ch_balance set 财务=0,财务凭证='''' where 财务凭证='''+inttostr(OrdNo)+''''); // dmAcc.TempQuery.Parameters.ParamByName('mOrdNo').value:=OrdNo; dmAcc.TempQuery.ExecSQL; end; // finally freeAndNil(FrmVouItemStl); // end; { except dmAcc.TempQuery.Close; dmAcc.TempQuery.SQL.Clear; dmAcc.TempQuery.SQL.Add('delete from vouchers where ordno=:mOrdNo'); dmAcc.TempQuery.Parameters.ParamByName('mOrdNo').value:=OrdNo; dmAcc.TempQuery.ExecSQL; end; } // finally dmAcc.AdotblVouItems.Close; dmAcc.AdotblVou.Close; freeAndNil(dmacc); // end; bsSkinButton18.OnClick(bsSkinButton18); end; procedure Tfrm_cw_pingzheng_yt.NewDCVou_select; var i,ordno:integer; aQuery:TAdoQuery; aModal:TModalResult; mAccOK:boolean; begin if wwDBDateTimePicker21.Text='' then begin MessageDlg('请首先设置记账日期！',mterror,[mbyes],0); exit; end; if RxDBLookupCombo6.DisplayValue='' then begin MessageDlg('请首先设置制单人！',mterror,[mbyes],0); exit; end; dmacc:=TdmAcc.Create(self); aQuery:=CreateAdoQuery; dmAcc.ADOtblVou.Open; dmAcc.ADOtblVouItems.Open; aVKNO:=1; aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update t_ch_balance set 财务=1,财务凭证=:财务凭证 where 帐单编号=:帐单编号'); VoucherDate:=wwDBDateTimePicker21.Date; if dxDBGrid2.SelectedCount>1 then begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=dxDBGrid2.SelectedCount; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; for i:=0 to dxDBGrid2.SelectedCount-1 do begin t_op_balance.GotoBookmark(Pointer(dxDBGrid2.selectedrows[I])); if t_op_balance['财务'] then begin MessageDlg('帐单编号:'+t_op_balance.fieldbyname('帐单编号').AsString+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin NewDCVou(t_op_balance,RxDBLookupCombo6.DisplayValues[0],wwDBDateTimePicker21.Date); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('帐单编号').Value:=t_op_balance.fieldbyname('帐单编号').AsString; aQuery.ExecSQL; end; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; end; end else begin NewDCVou(t_op_balance,RxDBLookupCombo6.DisplayValues[0],wwDBDateTimePicker21.Date); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('帐单编号').Value:=t_op_balance.fieldbyname('帐单编号').AsString; aQuery.ExecSQL; end; ordno:=dmAcc.AdotblVou.fieldbyname('ordno').asinteger; dmAcc.AdotblVouItems.Close; dmAcc.AdotblVou.Close; freeAndNil(dmacc); freeAndNil(frm_sys_progress); bsSkinButton18.OnClick(bsSkinButton18); end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton20Click(Sender: TObject); var aQuery:TADOQuery; i:Integer; s:string; begin if t_op_balance.IsEmpty then exit; if dxDBGrid2.SelectedCount<1 then begin exit; end; aQuery:=CreateAdoQuery; with aQuery,SQL do begin Close;Clear; Add('Select s.工作编号,s.客户名称,s.收付,s.币别,s.汇率,s.是否垫付,S.船名,s.航次'); Add(',sum(S.金额) 金额,sum(S.金额*s.汇率) 合计金额'); Add('from v_fee_balance_items s'); Add('where S.工作编号=:工作编号'); Add('Group By s.工作编号,s.客户名称,s.收付,s.币别 ,s.汇率,s.是否垫付,S.船名,s.航次'); Add('Order By s.工作编号,s.客户名称,s.收付,s.币别 ,s.汇率,s.是否垫付,S.船名,s.航次'); end; s:=''; if dxDBGrid2.SelectedCount>1 then begin for i:=0 to dxDBGrid2.SelectedCount-1 do begin t_op_balance.GotoBookmark(Pointer(dxDBGrid2.selectedrows[I])); if t_op_balance['财务'] then begin MessageDlg('帐单编号:'+t_op_balance.fieldbyname('帐单编号').AsString+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin aQuery.Close; aQuery.Parameters.ParamByName('工作编号').Value:=t_op_balance.fieldbyname('帐单编号').AsString; aQuery.Open; if aQuery.IsEmpty then begin showmessage('费用明细为空'); Exit; end; s:=GetNoCorpNo(t_op_balance.fieldbyname('帐单编号').AsString); if s<>'' then begin showmessage(s+#13#10+'财务代码没有设置'); Exit; end; end; end; end else begin aQuery.Close; aQuery.Parameters.ParamByName('工作编号').Value:=t_op_balance.fieldbyname('帐单编号').AsString; aQuery.Open; if aQuery.IsEmpty then begin showmessage('费用明细为空'); Exit; end; s:=GetNoCorpNo(t_op_balance.fieldbyname('帐单编号').AsString); if s<>'' then begin showmessage(s+#13#10+'财务代码没有设置'); Exit; end; end; NewDCVou_select; end; procedure Tfrm_cw_pingzheng_yt.U8; var aQuery:TADOQuery; Str,S,source,dbffile,exepath,adbftable:String; connectstr:wideString; selcount,itemno:integer; sl:TStrings; function GetSelCount:integer; begin result:=0; memtblvou.First; while not memtblvou.Eof do begin result:=result+1; memtblvou.Next; end; end; begin { if not selectDirectory('选择导出文件目录','',source) then begin messagedlg( '必须选择导出路径才能导出凭证文件',mterro,mbyes,0); exit; end; } if not memtblVou.Active then exit; selcount:=GetSelCount; if selcount=0 then begin messagedlg( '没有选择要导出的凭证，不能导出',mtError,[mbyes],0); exit; end; aQuery:=CreateADOQuery; aQuery.SQL.Add('Update Vouchers set Status=1 where ordno=:OrdNo'); sl:=TStringList.Create; sl.Add('填制凭证,V800'); memtblVou.First; try while not memtblVou.Eof do begin if memtblVou.FieldByName('Selected').AsInteger=1 then begin qryVouitems.First; while not qryVouitems.Eof do begin if (qryVouitems.fieldByName('AMTDR').AsFloat<>0) or (qryVouitems.fieldByName('AMTCR').AsFloat<>0) then begin S:=''; S:=S+FormatDateTime('YYYY-MM-DD',memTblVou.FieldByName('VouDate').AsDateTime)+','; //1 S:=S+trim(memTblVou.fieldByName('VKNO').AsString)+','; //2 S:=S+memTblVou.fieldByName('ORDNO').AsString+','; //3 S:=S+memTblVou.fieldByName('ATTACHS').AsString+','; //4 S:=S+qryVouitems.fieldByName('Explan').AsString+','; //5 S:=S+Trim(qryVouitems.fieldByName('ACCID').AsString)+','; //6 S:=S+qryVouitems.fieldByName('AMTDR').AsString+','; //7 S:=S+qryVouitems.fieldByName('AMTCR').AsString+',,'; //8 9 S:=S+FloattoStr(qryVouitems.fieldByName('FCYDR').AsFloat+qryVouitems.fieldByName('FCYCR').AsFloat)+','; //10 S:=S+qryVouitems.fieldByName('FCYExRate').AsString; // 11 汇率 S:=S+','+memTblVou.fieldByName('PREPARED').AsString; S:=S+',,'; //F12制单人","F13结算方式","F14票号","F15发生日期" S:=S+copy(qryVouitems.FieldByName('BSNO').AsString,1,10); //相关号码 { S:=S+qryVouitems.FieldByName('FSETTLCODE').AsString+','; S:=S+qryVouitems.FieldByName('FSETTLENO').AsString+',,'; } if (Trim(qryVouitems.fieldByName('ACCID').AsString)=AccInfo.DebitAccIDU) or (Trim(qryVouitems.fieldByName('ACCID').AsString)=AccInfo.DebitAccID) or (Trim(qryVouitems.fieldByName('ACCID').AsString)=AccInfo.CreditAccIDU) or (Trim(qryVouitems.fieldByName('ACCID').AsString)=AccInfo.CreditAccID) then begin S:=S+''+','; S:=S+FormatDateTime('YYYY-MM-DD',memTblVou.FieldByName('VouDate').AsDateTime)+','; end else begin S:=S+','; S:=S+','; end; S:=S+qryVouitems.fieldByName('DeptID').AsString+','; S:=S+qryVouitems.fieldByName('EmplID').AsString+','; if Trim(qryVouitems.fieldByName('QTYSPECS').AsString)=Trim(AccInfo.CustKindName) then begin S:=S+qryVouitems.fieldByName('CORPID').AsString+',,'; end else if Trim(qryVouitems.fieldByName('QTYSPECS').AsString)=Trim(AccInfo.SuppKindName) then begin S:=S+','+qryVouitems.fieldByName('CORPID').AsString+','; end else begin S:=S+',,'; end; S:=S+','+qryVouitems.fieldByName('Field1').AsString; SL.Add(S); end; qryVouitems.Next; end; aQuery.Parameters.ParamByName('OrdNO').value:=qryVouitems.fieldByName('OrdNO').AsInteger; aQuery.ExecSQL; end; memTblVou.Next; end; if sl.Count<>1 then begin saveDialog1.Files.Add(FormatDateTime('YYMMDD', Date)+'.TXT'); if SaveDialog1.Execute then begin sl.SaveToFile(SaveDialog1.FileName+'.txt'); MessageDlg('已经将凭证输出到文件'+SaveDialog1.FileName,mtInformation,[mbOK],0); end; end; finally FreeAndNil(aQuery); FreeAndNil(Sl); end; bsSkinButton8Click(bsSkinButton8); end; procedure Tfrm_cw_pingzheng_yt.U8103; var aQuery:TADOQuery; Str,S,source,dbffile,exepath,adbftable:String; connectstr:wideString; selcount,itemno:integer; sl:TStrings; function GetSelCount:integer; begin result:=0; memtblvou.First; while not memtblvou.Eof do begin result:=result+1; memtblvou.Next; end; end; begin { if not selectDirectory('选择导出文件目录','',source) then begin messagedlg( '必须选择导出路径才能导出凭证文件',mterro,mbyes,0); exit; end; } if not memtblVou.Active then exit; selcount:=GetSelCount; if selcount=0 then begin messagedlg( '没有选择要导出的凭证，不能导出',mtError,[mbyes],0); exit; end; aQuery:=CreateADOQuery; aQuery.SQL.Add('Update Vouchers set Status=1 where ordno=:OrdNo'); sl:=TStringList.Create; sl.Add('填制凭证,V800'); memtblVou.First; try while not memtblVou.Eof do begin if memtblVou.FieldByName('Selected').AsInteger=1 then begin qryVouitems.First; while not qryVouitems.Eof do begin S:=''; S:=S+FormatDateTime('YYYY-MM-DD',memTblVou.FieldByName('VouDate').AsDateTime)+','; //1 S:=S+trim(memTblVou.fieldByName('VKNO').AsString)+','; //2 S:=S+memTblVou.fieldByName('ORDNO').AsString+','; //3 S:=S+memTblVou.fieldByName('ATTACHS').AsString+','; //4 S:=S+qryVouitems.fieldByName('Explan').AsString+','; //5 S:=S+Trim(qryVouitems.fieldByName('ACCID').AsString)+','; //6 S:=S+qryVouitems.fieldByName('AMTDR').AsString+','; //7 S:=S+qryVouitems.fieldByName('AMTCR').AsString+',,'; //8 9 S:=S+FloattoStr(qryVouitems.fieldByName('FCYDR').AsFloat+qryVouitems.fieldByName('FCYCR').AsFloat)+','; //10 S:=S+qryVouitems.fieldByName('FCYExRate').AsString; // 11 汇率 S:=S+',,,'; //F12制单人","F13结算方式","F14票号","F15发生日期" // S:=S+qryVouitems.FieldByName('FSETTLENO').AsString; //相关号码 { S:=S+qryVouitems.FieldByName('FSETTLCODE').AsString+','; S:=S+qryVouitems.FieldByName('FSETTLENO').AsString+',,'; } if (Trim(qryVouitems.fieldByName('ACCID').AsString)=AccInfo.DebitAccIDU) or (Trim(qryVouitems.fieldByName('ACCID').AsString)=AccInfo.DebitAccID) or (Trim(qryVouitems.fieldByName('ACCID').AsString)=AccInfo.CreditAccIDU) or (Trim(qryVouitems.fieldByName('ACCID').AsString)=AccInfo.CreditAccID) then begin S:=S+''+','; S:=S+FormatDateTime('YYYY-MM-DD',memTblVou.FieldByName('VouDate').AsDateTime)+','; end else begin S:=S+','; S:=S+','; end; S:=S+qryVouitems.fieldByName('DeptID').AsString+','; S:=S+qryVouitems.fieldByName('EmplID').AsString+','; if Trim(qryVouitems.fieldByName('QTYSPECS').AsString)=Trim(AccInfo.SuppKindName) then begin S:=S+','+qryVouitems.fieldByName('CORPID').AsString+','; end else if Trim(qryVouitems.fieldByName('QTYSPECS').AsString)=Trim(AccInfo.CustKindName) then begin S:=S+qryVouitems.fieldByName('CORPID').AsString+',,'; end else begin S:=S+',,'; end; { S:=S+FormatDateTime('YY-MM-DD',memTblVou.FieldByName('VouDate').AsDateTime)+','; S:=S+trim(memTblVou.fieldByName('VKNO').AsString)+','; S:=S+memTblVou.fieldByName('ORDNO').AsString+','; S:=S+memTblVou.fieldByName('ATTACHS').AsString+','; S:=S+qryVouitems.fieldByName('Explan').AsString+','; S:=S+Trim(qryVouitems.fieldByName('ACCID').AsString)+','; S:=S+qryVouitems.fieldByName('AMTDR').AsString+','; S:=S+qryVouitems.fieldByName('AMTCR').AsString+',,'; S:=S+FloattoStr(qryVouitems.fieldByName('FCYDR').AsFloat+qryVouitems.fieldByName('FCYCR').AsFloat)+','; S:=S+qryVouitems.fieldByName('FCYExRate').AsString+',,'; S:=S+','; // S:=S+qryVouitems.FieldByName('FSETTLCODE').AsString+','; S:=S+qryVouitems.FieldByName('FSETTLENO').AsString+',,'; S:=S+qryVouitems.fieldByName('DeptID').AsString+','; S:=S+qryVouitems.fieldByName('EmplID').AsString+','; if Trim(qryVouitems.fieldByName('QTYSPECS').AsString)<>'' then begin S:=S+qryVouitems.fieldByName('CORPID').AsString+',,'; end else begin S:=S+',,'; end; } { if qryVouitems.FieldByName('CorpBF').AsString='T' then S:=S+','+qryVouitems.fieldByName('CORPID').AsString+',' else S:=S+qryVouitems.fieldByName('CORPID').AsString+',,'; } { if (trim(qryVouitems.FieldByName('AccID').AsString)=trim(AccInfo.DebitAccID)) or (trim(qryVouitems.FieldByName('AccID').AsString)=trim(AccInfo.DebitAccIDU)) then begin S:=S+qryVouitems.fieldByName('CORPID').AsString+',,'; end; if (trim(qryVouitems.FieldByName('AccID').AsString)=trim(AccInfo.CreditAccID)) or (trim(qryVouitems.FieldByName('AccID').AsString)=trim(AccInfo.CreditAccIDU)) then begin S:=S+','+qryVouitems.fieldByName('CORPID').AsString+','; end; } SL.Add(S); qryVouitems.Next; end; aQuery.Parameters.ParamByName('OrdNO').value:=qryVouitems.fieldByName('OrdNO').AsInteger; aQuery.ExecSQL; end; memTblVou.Next; end; if sl.Count<>1 then begin saveDialog1.Files.Add(FormatDateTime('YYMMDD', Date)+'.TXT'); if SaveDialog1.Execute then begin sl.SaveToFile(SaveDialog1.FileName+'.txt'); MessageDlg('已经将凭证输出到文件'+SaveDialog1.FileName,mtInformation,[mbOK],0); end; end; finally FreeAndNil(aQuery); FreeAndNil(Sl); end; bsSkinButton8Click(bsSkinButton8); end; procedure Tfrm_cw_pingzheng_yt.kingdee; var aQuery:TADOQuery; Str,source,dbffile,exepath,adbftable:String; connectstr:wideString; selcount,itemno:integer; function GetSelCount:integer; begin result:=0; memtblvou.First; while not memtblvou.Eof do begin result:=result+1; memtblvou.Next; end; end; begin { if not selectDirectory('选择导出文件目录','',source) then begin messagedlg( '必须选择导出路径才能导出凭证文件',mterro,mbyes,0); exit; end; } if not memtblVou.Active then exit; selcount:=GetSelCount; if selcount=0 then begin messagedlg( '没有选择要导出的凭证，不能导出',mtError,[mbyes],0); exit; end; { cwconnect.Connected:=false; tblvouitems.Active:=false; exepath:=extractfilepath(paramstr(0))+'vouitems.dbf'; if not fileexists(exepath) then begin messagedlg( '原始凭证文件不存在,请重新设置',mtError,[mbyes],0); exit; end; source:=extractfilepath(exepath); adbftable:=extractfilename(exepath); connectstr:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+source+';Mode=Share Deny None;'; connectstr:=connectstr+'Extended Properties=dBase 5.0;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=18;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;'; connectstr:=connectstr+'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';// 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+source+';Extended Properties=dBase 5.0;Persist Security Info=False'; cwconnect.ConnectionString:=connectstr; tblvouitems.TableName:=adbftable; cwconnect.Connected:=true; } DatabaseVouitems.Connected:=true; // tblvouitems.Active:=true; { Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('delete from vouitems'); Query1.ExecSQL; } tblVouitems.Active:=true; tblVouitems.First; while not tblVouitems.Eof do begin tblvouitems.Delete; end; memtblVou.First; aQuery:=CreateADOQuery; aQuery.SQL.Add('Update Vouchers set Status=1 where ordno=:OrdNo'); if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); try frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=selcount; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; while not memtblVou.Eof do begin if memtblVou.FieldByName('Selected').AsInteger=1 then begin qryVouitems.First; itemno:=0; while not qryVouitems.Eof do begin if (qryVouitems.fieldByName('AMTDR').AsFloat<>0) or (qryVouitems.fieldByName('AMTCR').AsFloat<>0) then begin tblVouitems.Insert; tblVouitems.FieldByName('FDATE').AsDateTime:=memTblVou.fieldByName('VouDate').AsDateTime; tblVouitems.FieldByName('FTRANSDATE').AsDateTime:=memTblVou.fieldByName('VouDate').AsDateTime; tblVouitems.FieldByName('FPeriod').Asinteger:=memTblVou.fieldByName('AccMonth').AsInteger; tblVouitems.FieldByName('FGROUP').AsString:=memTblVou.FieldByName('VKNO').AsString; tblVouitems.FieldByName('FNUM').AsInteger:=qryVouitems.FieldByName('OrdNO').AsInteger; tblVouitems.FieldByName('FENTRYID').AsInteger:=itemno; itemno:=itemno+1; tblVouitems.FieldByName('FEXP').AsString:=qryVouitems.FieldByName('ExPlan').AsString; tblVouitems.FieldByName('FACCTID').AsString:=qryVouitems.fieldByName('ACCID').AsString; tblVouitems.FieldByName('FTRANSID').AsString:=qryVouitems.FieldByName('bsNo').AsString; if (trim(qryVouitems.FieldByName('AccID').AsString)=trim(AccInfo.DebitAccID)) or (trim(qryVouitems.FieldByName('AccID').AsString)=trim(AccInfo.CreditAccID)) or (trim(qryVouitems.FieldByName('AccID').AsString)=trim(AccInfo.DebitAccIDU)) or (trim(qryVouitems.FieldByName('AccID').AsString)=trim(AccInfo.CreditAccIDU)) then begin // if (trim(qryVouitems.FieldByName('AccID').AsString)=trim(AccInfo.DebitAccID)) or (trim(qryVouitems.FieldByName('AccID').AsString)=trim(AccInfo.DebitAccIDU)) then // tblVouitems.FieldByName('FCLSNAME1').AsString:='01客户' // else case AccInfo.ACCSys of 1,2: begin tblVouitems.FieldByName('FCLSNAME1').AsString:=qryVouitems.FieldByName('QTYSPECS').AsString; //往来单位 tblVouitems.FieldByName('FOBJID1').AsString:=qryVouitems.FieldByName('CorpID').AsString; tblVouitems.FieldByName('FOBJNAME1').AsString:=qryVouitems.FieldByName('CorpID').AsString; tblVouitems.FieldByName('FCLSNAME2').AsString:=qryVouitems.FieldByName('QTYSPECS').AsString; //往来单位 tblVouitems.FieldByName('FOBJID2').AsString:=qryVouitems.FieldByName('CorpID').AsString; tblVouitems.FieldByName('FOBJNAME2').AsString:=qryVouitems.FieldByName('CorpID').AsString; end; 3: //k3 begin tblVouitems.FieldByName('FCLSNAME1').AsString:=qryVouitems.FieldByName('QTYSPECS').AsString; //往来单位 tblVouitems.FieldByName('FOBJID1').AsString:=qryVouitems.FieldByName('CorpID').AsString; tblVouitems.FieldByName('FOBJNAME1').AsString:=qryVouitems.FieldByName('CorpID').AsString; end; 7: begin tblVouitems.FieldByName('FCLSNAME1').AsString:=''; //往来单位 tblVouitems.FieldByName('FOBJID1').AsString:=''; tblVouitems.FieldByName('FOBJNAME1').AsString:=''; end; end; // tblVouitems.FieldByName('FCLSNAME2').AsString:='往来单位'; // tblVouitems.FieldByName('FOBJID2').AsString:=qryVouitems.FieldByName('CorpID').AsString; // tblVouitems.FieldByName('FOBJNAME2').AsString:=qryVouitems.FieldByName('CorpID').AsString; end; if (Trim(qryVouitems.fieldByName('ACCID').AsString)=Trim(AccInfo.ProfitAccID)) or (Trim(qryVouitems.fieldByName('ACCID').AsString)=Trim(AccInfo.ImpProfitAccID)) or (Trim(qryVouitems.fieldByName('ACCID').AsString)=Trim(AccInfo.ProfitAccIDU)) or (Trim(qryVouitems.fieldByName('ACCID').AsString)=Trim(AccInfo.ImpProfitAccIDU)) then begin if t_Accitems.Locate('accid',qryVouitems.fieldByName('ACCID').AsString,[]) then begin if t_Accitems.FieldByName('EmplACC').AsString='T' then begin tblVouitems.FieldByName('FCLSNAME1').AsString:=AccInfo.SaleKindName; //业务员 tblVouitems.FieldByName('FOBJID1').AsString:=qryVouitems.FieldByName('emplID').AsString; tblVouitems.FieldByName('FOBJNAME1').AsString:=qryVouitems.FieldByName('emplID').AsString; case AccInfo.ACCSys of 1,2: begin tblVouitems.FieldByName('FOBJID2').AsString:=qryVouitems.FieldByName('CorpID').AsString; tblVouitems.FieldByName('FOBJNAME2').AsString:=qryVouitems.FieldByName('CorpID').AsString; end; end; end; end; end; case AccInfo.ACCSys of 3: begin if t_Accitems.Locate('accid',qryVouitems.fieldByName('ACCID').AsString,[]) then begin if t_Accitems.FieldByName('CORPACC').AsString='T' then begin tblVouitems.FieldByName('FCLSNAME1').AsString:=qryVouitems.FieldByName('QTYSPECS').AsString; //往来单位 tblVouitems.FieldByName('FOBJID1').AsString:=qryVouitems.FieldByName('CorpID').AsString; tblVouitems.FieldByName('FOBJNAME1').AsString:=qryVouitems.FieldByName('CorpID').AsString; end; end; end; end; if (qryVouitems.FieldByName('FCYDR').AsFloat<>0) OR (qryVouitems.FieldByName('FCYCR').AsFloat<>0) then begin tblVouitems.FieldByName('FCYID').AsString:='USD'; tblVouitems.FieldByName('FFCYAMT').AsFloat:=qryVouitems.fieldByName('FCYDR').AsFloat+qryVouitems.fieldByName('FCYCR').AsFloat; tblVouitems.FieldByName('FEXCHRATE').AsFloat:=qryVouitems.fieldByName('FCYEXRATE').AsFloat; end else begin tblVouitems.FieldByName('FCYID').AsString:='RMB'; tblVouitems.FieldByName('FFCYAMT').AsFloat:=qryVouitems.fieldByName('AMTDR').AsFloat+qryVouitems.fieldByName('AMTCR').AsFloat; tblVouitems.FieldByName('FEXCHRATE').AsFloat:=1; end; tblVouitems.FieldByName('FPRICE').AsFloat:=0; tblVouitems.FieldByName('FDebit').AsFloat:=qryVouitems.fieldByName('AMTDR').AsFloat; tblVouitems.FieldByName('FCredit').AsFloat:=qryVouitems.fieldByName('AMTCR').AsFloat; tblVouitems.FieldByName('FDC').AsString:=qryVouitems.FieldByName('DC').AsString; tblVouitems.FieldByName('FATTCHMENT').Asinteger:=memTblVou.FieldByName('ATTACHS').Asinteger;; tblVouitems.FieldByName('FPOSTED').AsBoolean:=False; tblVouitems.FieldByName('FDELETED').AsBoolean:=False; tblVouitems.FieldByName('FSERIALNO').Asinteger:=qryVouitems.FieldByName('OrdNO').AsInteger; tblVouitems.FieldByName('FPREPARE').AsString:=memtblVou.FieldByName('PREPARED').AsString; tblVouitems.FieldByName('FSETTLCODE').AsString:=qryVouitems.FieldByName('FSETTLCODE').AsString; tblVouitems.FieldByName('FSETTLENO').AsString:=qryVouitems.FieldByName('FSETTLENO').AsString; tblVouitems.Post; end; qryVouitems.Next; end; aQuery.Parameters.ParamByName('OrdNO').value:=qryVouitems.fieldByName('OrdNO').AsInteger; aQuery.ExecSQL; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; end; memTblVou.Next; end; finally tblVouitems.Active:=false; DatabaseVouitems.Connected:=false; DatabaseVouitems.Close; FreeAndNil(aQuery); freeandnil(frm_sys_progress); MessageDlg('已经将凭证输出到文件凭证文件中',mtInformation,[mbOK],0); bsSkinButton8Click(bsSkinButton8); end; end; procedure Tfrm_cw_pingzheng_yt.Sybase; var aQuery:TADOQuery; Str,source,dbffile,exepath,adbftable:String; connectstr:wideString; selcount,itemno:integer; zy_english,zy,kmdm,wbzl,bmdm,khdm,fzdm,xmdm,djh,ywbh,lry:string; jje,dje,wbhl,wbjje,wbdje:double; fzbz,oldid,hxbz,kmtx,relock,whxwbje,whxje,fjs:integer; djrq,hxrq:TDateTime; function GetSelCount:integer; begin result:=0; memtblvou.First; while not memtblvou.Eof do begin result:=result+1; memtblvou.Next; end; end; begin if not memtblVou.Active then exit; selcount:=GetSelCount; if selcount=0 then begin messagedlg( '没有选择要导出的凭证，不能导出',mtError,[mbyes],0); exit; end; // ADOConnection1.Connected:=true; with ADOQuery1 do begin Close;Sql.Clear; sql.Add('Insert Into pzkdetail_nosave ( zy_english, zy, kmdm, jje, dje, wbzl, wbhl, wbjje, wbdje, bmdm, khdm, fzbz, fzdm, xmdm, oldid, djh, djrq, hxbz, hxrq, kmtx, ywbh, relock, lry, whxwbje, whxje, fjs)'); sql.Add('values (:zy_english,:zy,:kmdm,:jje,:dje,:wbzl,:wbhl,:wbjje,:wbdje,:bmdm,:khdm,:fzbz,:fzdm,:xmdm,:oldid,:djh,:djrq,:hxbz,:hxrq,:kmtx,:ywbh,:relock,:lry,:whxwbje,:whxje,:fjs)'); end; aQuery:=CreateADOQuery; aQuery.SQL.Add('Update Vouchers set Status=1 where ordno=:OrdNo'); if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); try frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=selcount; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; memtblVou.First; while not memtblVou.Eof do begin if memtblVou.FieldByName('Selected').AsInteger=1 then begin qryVouitems.First; itemno:=0; while not qryVouitems.Eof do begin zy_english:='';//放空即可 zy:=qryVouitems.FieldByName('ExPlan').AsString;//凭证摘要 kmdm:=qryVouitems.fieldByName('ACCID').AsString;//科目代码，具体信息见下面的'科目特性'的文件 jje:=qryVouitems.fieldByName('AMTDR').AsFloat;//借方本位币金额 dje:=qryVouitems.fieldByName('AMTCR').AsFloat;//贷方本位币金额 if (qryVouitems.FieldByName('FCYDR').AsFloat<>0) OR (qryVouitems.FieldByName('FCYCR').AsFloat<>0) then begin wbzl:='USD';//外币种类（USD、RMB等） wbhl:=qryVouitems.fieldByName('FCYEXRATE').AsFloat;//外币汇率，如果是本位币此处为1 wbjje:=qryVouitems.fieldByName('FCYDR').AsFloat; //外币借方金额 wbdje:=qryVouitems.fieldByName('FCYCR').AsFloat; //外币贷方金额 end else begin wbzl:='RMB';//外币种类（USD、RMB等） wbhl:=1;//外币汇率，如果是本位币此处为1 wbjje:=0; //外币借方金额 wbdje:=0; //外币贷方金额 end; bmdm:=''; //部门代码，如果科目是分部门核算，此处不能为空 khdm:=qryVouitems.FieldByName('CorpID').AsString; //客户或供应商代码，如果科目是分客户核算，此处不能为空 fzbz:=0; //辅助标志，如果科目是分其他辅助核算，此处不能为空 fzdm:=''; //辅助代码，如果科目是分其他辅助核算，不能为空 xmdm:=''; //项目代码，如果科目是分项目核算，此处不能为空 oldid:=0; //直接放0 djh:=qryVouitems.fieldByName('OrdNO').AsString+FormatDateTime('YYYYMMDD',memtblVou.FieldByName('VouDate').AsDateTime); //单据号，如果凭证上用户录入了单据号，此处不能为空 djrq:=date; //如果单据号不为空，此处为单据日期，否则为'1900-01-01' hxbz:=0; //直接放0 hxrq:=date; //直接放'1999-01-01' kmtx:=0; //科目特性 ywbh:=qryVouitems.fieldByName('OrdNO').AsString+FormatDateTime('YYYYMMDD',memtblVou.FieldByName('VouDate').AsDateTime); //业务系统凭证唯一编号，不能为空，不能重复 relock:=0; //直接放0 lry:=memtblVou.FieldByName('PREPARED').AsString;; ////凭证制单人 whxwbje:=0; //直接放0 whxje:=0; //直接放0 fjs:=memTblVou.FieldByName('ATTACHS').Asinteger; //凭证附件数 with ADOQuery1 do begin Close;Sql.Clear; sql.Add('Insert Into pzkdetail_nosave ( zy_english, zy, kmdm, jje, dje, wbzl, wbhl, wbjje, wbdje, bmdm, khdm, fzbz, fzdm, xmdm, oldid, djh, djrq, hxbz, hxrq, kmtx, ywbh, relock, lry, whxwbje, whxje, fjs)'); sql.Add('values ('+ ''''+zy_english+''''+','+ ''''+zy+''''+','+ ''''+kmdm+''''+','+ FormatFloat('0.00;-0.00;0',jje)+','+ FormatFloat('0.00;-0.00;0',dje)+','+ ''''+wbzl+''''+','+ FormatFloat('0.00;-0.00;0',wbhl)+','+ FormatFloat('0.00;-0.00;0',wbjje)+','+ FormatFloat('0.00;-0.00;0',wbdje)+','+ ''''+bmdm+''''+','+ ''''+khdm+''''+','+ FormatFloat('0.00;-0.00;0',fzbz)+','+ ''''+fzdm+''''+','+ ''''+xmdm+''''+','+ FormatFloat('0.00;-0.00;0',oldid)+','+ ''''+djh+''''+','+ ''''+FormatDateTime('YYYY-MM-DD',djrq)+''''+','+ FormatFloat('0.00;-0.00;0',hxbz)+','+ ''''+FormatDateTime('YYYY-MM-DD',hxrq)+''''+','+ FormatFloat('0.00;-0.00;0',kmtx)+','+ ''''+ywbh+''''+','+ FormatFloat('0.00;-0.00;0',relock)+','+ ''''+lry+''''+','+ FormatFloat('0.00;-0.00;0',whxwbje)+','+ FormatFloat('0.00;-0.00;0',whxje)+','+ FormatFloat('0.00;-0.00;0',fjs)+')'); end; try ADOQuery1.ExecSQL; except showmessage(ADOConnection1.Errors.Item[0].Description); end; qryVouitems.Next; end; aQuery.Close; aQuery.Parameters.ParamByName('OrdNO').Value:=qryVouitems.FieldByName('OrdNO').AsInteger; aQuery.ExecSQL; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; end; memTblVou.Next; end; finally { except on e:exception do begin Showmessage(e.Message); end; } FreeAndNil(aQuery); ADOConnection1.Connected:=false; freeandnil(frm_sys_progress); MessageDlg('已经将凭证输出',mtInformation,[mbOK],0); bsSkinButton8Click(bsSkinButton8); end; end; procedure Tfrm_cw_pingzheng_yt.DBGridEh2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin with TDBGridEh(Sender), Canvas, Brush do begin case memTblVou.FieldByName('Status').AsInteger of 1 : Color:=$00FBE8FF;//完成 end; if (gdSelected in State)or(gdFocused in State) then begin Font.Color:=Color; Color:=$00C08080; end; DefaultDrawColumnCell(Rect, dataCol,Column, State); end; end; procedure Tfrm_cw_pingzheng_yt.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin with TDBGridEh(Sender), Canvas, Brush do begin if t_op_seae['财务'] then Color:=$00FBE8FF;//完成 if (gdSelected in State)or(gdFocused in State) then begin Font.Color:=Color; Color:=$00C08080; end; DefaultDrawColumnCell(Rect, dataCol,Column, State); end; end; procedure Tfrm_cw_pingzheng_yt.DBGridEh4DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin with TDBGridEh(Sender), Canvas, Brush do begin if t_op_seai['财务'] then Color:=$00FBE8FF;//完成 if (gdSelected in State)or(gdFocused in State) then begin Font.Color:=Color; Color:=$00C08080; end; DefaultDrawColumnCell(Rect, dataCol,Column, State); end; end; procedure Tfrm_cw_pingzheng_yt.DBGridEh5DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin with TDBGridEh(Sender), Canvas, Brush do begin if t_op_aire['财务'] then Color:=$00FBE8FF;//完成 if (gdSelected in State)or(gdFocused in State) then begin Font.Color:=Color; Color:=$00C08080; end; DefaultDrawColumnCell(Rect, dataCol,Column, State); end; end; procedure Tfrm_cw_pingzheng_yt.DBGridEh6DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin with TDBGridEh(Sender), Canvas, Brush do begin if t_op_airi['财务'] then Color:=$00FBE8FF;//完成 if (gdSelected in State)or(gdFocused in State) then begin Font.Color:=Color; Color:=$00C08080; end; DefaultDrawColumnCell(Rect, dataCol,Column, State); end; end; procedure Tfrm_cw_pingzheng_yt.DBGridEh7DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin with TDBGridEh(Sender), Canvas, Brush do begin if t_op_balance['财务'] then Color:=$00FBE8FF;//完成 if (gdSelected in State)or(gdFocused in State) then begin Font.Color:=clGreen; Color:=clSkyBlue; // Color:=$00C08080; end; DefaultDrawColumnCell(Rect, dataCol,Column, State); end; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton12Click(Sender: TObject); var i,ordno:integer; aQuery:TAdoQuery; begin NewBsVoucher(3,'t_op_aire','主运单号',dxDBGrid6,t_op_aire); { if wwDBDateTimePicker21.Text='' then begin MessageDlg('请首先设置记账日期！',mterror,[mbyes],0); exit; end; if RxDBLookupCombo6.DisplayValue='' then begin MessageDlg('请首先设置制单人！',mterror,[mbyes],0); exit; end; dmacc:=TdmAcc.Create(self); aQuery:=CreateAdoQuery; try dmAcc.ADOtblVou.Open; dmAcc.ADOtblVouItems.Open; aVKNO:=1; aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update t_op_aire set 财务=1,财务凭证=:财务凭证 where 业务编号=:业务编号'); VoucherDate:=wwDBDateTimePicker21.Date; if DBGridEh5.SelectedRows.Count>1 then begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); try frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=DBGridEh5.SelectedRows.Count; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; for i:=0 to DBGridEh5.SelectedRows.Count-1 do begin t_op_aire.GotoBookmark(Pointer(DBGridEh5.SelectedRows.Items[I])); if t_op_aire['财务'] then begin MessageDlg('业务编号:'+t_op_aire['业务编号']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin NewDrCrVou(t_op_aire,3,t_op_aire['主运单号'],wwDBDateTimePicker21.Date,''); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('业务编号').Value:=t_op_aire.fieldbyname('业务编号').AsString; aQuery.ExecSQL; end; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; end; finally freeAndNil(frm_sys_progress); end; end else begin NewDrCrVou(t_op_aire,3,t_op_aire['主运单号'],wwDBDateTimePicker21.Date,''); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('业务编号').Value:=t_op_aire.fieldbyname('业务编号').AsString; aQuery.ExecSQL; end; finally dmAcc.AdotblVouItems.Close; dmAcc.AdotblVou.Close; freeAndNil(dmacc); end; bsSkinButton9.OnClick(sender); } end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton16Click(Sender: TObject); var i,ordno:integer; aQuery:TAdoQuery; begin NewBsVoucher(4,'t_op_airi','主运单号',dxDBGrid7,t_op_airi); { if wwDBDateTimePicker21.Text='' then begin MessageDlg('请首先设置记账日期！',mterror,[mbyes],0); exit; end; if RxDBLookupCombo6.DisplayValue='' then begin MessageDlg('请首先设置制单人！',mterror,[mbyes],0); exit; end; dmacc:=TdmAcc.Create(self); aQuery:=CreateAdoQuery; try dmAcc.ADOtblVou.Open; dmAcc.ADOtblVouItems.Open; aVKNO:=1; aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update t_op_airi set 财务=1,财务凭证=:财务凭证 where 业务编号=:业务编号'); VoucherDate:=wwDBDateTimePicker21.Date; if DBGridEh6.SelectedRows.Count>1 then begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); try frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=DBGridEh6.SelectedRows.Count; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; for i:=0 to DBGridEh6.SelectedRows.Count-1 do begin t_op_airi.GotoBookmark(Pointer(DBGridEh6.SelectedRows.Items[I])); if t_op_airi['财务'] then begin MessageDlg('业务编号:'+t_op_airi['业务编号']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin NewDrCrVou(t_op_airi,4,t_op_airi['主运单号'],wwDBDateTimePicker21.Date,''); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('业务编号').Value:=t_op_airi.fieldbyname('业务编号').AsString; aQuery.ExecSQL; end; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; end; finally freeAndNil(frm_sys_progress); end; end else begin NewDrCrVou(t_op_airi,4,t_op_airi['主运单号'],wwDBDateTimePicker21.Date,''); aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('业务编号').Value:=t_op_airi.fieldbyname('业务编号').AsString; aQuery.ExecSQL; end; finally dmAcc.AdotblVouItems.Close; dmAcc.AdotblVou.Close; freeAndNil(dmacc); end; bsSkinButton14.OnClick(sender); } end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton17Click(Sender: TObject); procedure deleteBusiCardVt(ordno:integer); var aQuery:TAdoQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin close;SQl.Clear; SQL.Add('delete from vouchers where ORDNO='+inttostr(OrdNo)); ExecSQL; close;SQl.Clear; SQL.Add('update t_op_seae set 财务=0,财务凭证='''' where 财务凭证='''+inttostr(OrdNo)+''''); ExecSQL; close;SQl.Clear; SQL.Add('update t_op_seai set 财务=0,财务凭证='''' where 财务凭证='''+inttostr(OrdNo)+''''); ExecSQL; close;SQl.Clear; SQL.Add('update t_op_aire set 财务=0,财务凭证='''' where 财务凭证='''+inttostr(OrdNo)+''''); ExecSQL; close;SQl.Clear; SQL.Add('update t_op_airi set 财务=0,财务凭证='''' where 财务凭证='''+inttostr(OrdNo)+''''); ExecSQL; close;SQl.Clear; SQL.Add('update t_ch_invoice set 财务=0,财务凭证='''' where 财务凭证='''+inttostr(OrdNo)+''''); ExecSQL; close;SQl.Clear; SQL.Add('update t_ch_invoice_hexiao set 财务=0,财务凭证='''' where 财务凭证='''+inttostr(OrdNo)+''''); ExecSQL; end; finally FreeAndNil(aQuery); end; end; procedure deleteStlVt(ordno:integer); var aQuery:TAdoQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin close;SQl.Clear; SQL.Add('update t_ch_balance set 财务=0,财务凭证='''' where 财务凭证='''+inttostr(OrdNo)+''''); ExecSQL; close;SQl.Clear; SQL.Add('delete from vouchers where ORDNO='+inttostr(OrdNo)); ExecSQL; end; finally FreeAndNil(aQuery); end; end; procedure deleteOpFee(ordno,AccYear,AccMonth:integer); var aQuery:TAdoQuery; begin aQuery:=CreateAdoQuery; try with aQuery do begin close;SQl.Clear; SQL.Add('update t_Op_Fee set 财务=0,财务凭证='''''); SQL.Add('where 财务凭证='''+inttostr(OrdNo)+''''); SQL.Add(' and Accyear=:Accyear and AccMonth=:AccMonth'); Parameters.ParamByName('AccYear').Value:=AccYear; Parameters.ParamByName('AccMonth').Value:=AccMonth; ExecSQL; close;SQl.Clear; SQL.Add('delete from vouchers where ORDNO='+inttostr(OrdNo)); SQL.Add(' and SOURCETYPE=3 and Accyear=:Accyear and AccMonth=:AccMonth'); Parameters.ParamByName('AccYear').Value:=AccYear; Parameters.ParamByName('AccMonth').Value:=AccMonth; ExecSQL; end; finally FreeAndNil(aQuery); end; end; begin memtblVou.First; while not memtblVou.Eof do begin if memtblVou.FieldByName('Selected').AsInteger=1 then begin if memTblVou.FieldByName('SOURCETYPE').AsInteger=2 then deleteStlVt(memTblVou.fieldByName('ordno').AsInteger) else if memTblVou.FieldByName('SOURCETYPE').AsInteger=1 then deleteBusiCardVt(memTblVou.fieldByName('ordno').AsInteger) else deleteOpFee(memTblVou.fieldByName('ordno').AsInteger,memTblVou.fieldByName('AccYear').AsInteger,memTblVou.fieldByName('AccMonth').AsInteger) ; end; memtblvou.Next; end; bsSkinButton8Click(sender); end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton21Click(Sender: TObject); var str:widestring; i:integer; begin if t_op_seae.IsEmpty then exit; if dxDBGrid4.SelectedCount<1 then begin showmessage('请选择要打印的业务！！'); exit; end; if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then t_op_seae.post; try frm_ch_piliang_seae:=tfrm_ch_piliang_seae.Create (self); t_op_seae.DisableControls; for i:=0 to dxDBGrid4.SelectedCount-1 do begin t_op_seae.GotoBookmark(Pointer(dxDBGrid4.selectedrows[I])); if str='' then str:=''''+t_op_seae.fieldbyname('编号').AsString+'''' else str:=str+','+''''+t_op_seae.fieldbyname('编号').AsString+''''; end; str:='('+str+')'; str:='select * from t_op_seae where 编号 in '+str+default_sort(53,'t_op_seae','','desc'); frm_ch_piliang_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str; frm_ch_piliang_seae.t_op_seae.open; frm_ch_piliang_seae.ShowModal; finally t_op_seae.EnableControls; frm_ch_piliang_seae.Free; frm_ch_piliang_seae:=nil; end; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton22Click(Sender: TObject); var str:widestring; i:integer; begin if t_op_seai.IsEmpty then exit; if dxDBGrid5.SelectedCount<1 then begin showmessage('请选择要打印的业务帐单！！'); exit; end; if (t_op_seai.State=dsinsert)or(t_op_seai.State=dsedit) then t_op_seai.post; try frm_ch_piliang_seai:=tfrm_ch_piliang_seai.Create (self); t_op_seai.DisableControls; for i:=0 to dxDBGrid5.SelectedCount-1 do begin t_op_seai.GotoBookmark(Pointer(dxDBGrid5.selectedrows[I])); if str='' then str:=''''+t_op_seai.fieldbyname('编号').AsString+'''' else str:=str+','+''''+t_op_seai.fieldbyname('编号').AsString+''''; end; str:='('+str+')'; str:='select * from t_op_seai where 编号 in '+str+default_sort(54,'t_op_seai','','desc'); frm_ch_piliang_seai.t_op_seai.Parameters.ParamByName('SQLStr').value:=str; frm_ch_piliang_seai.t_op_seai.open; frm_ch_piliang_seai.ShowModal; finally t_op_seai.EnableControls; frm_ch_piliang_seai.Free; frm_ch_piliang_seai:=nil; end; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton23Click(Sender: TObject); var str:widestring; i:integer; begin if t_op_aire.IsEmpty then exit; if dxDBGrid6.SelectedCount<1 then begin showmessage('请选择要打印的业务帐单！！'); exit; end; if (t_op_aire.State=dsinsert)or(t_op_aire.State=dsedit) then t_op_aire.post; try frm_ch_piliang_aire:=tfrm_ch_piliang_aire.Create (self); t_op_aire.DisableControls; for i:=0 to dxDBGrid6.SelectedCount-1 do begin t_op_aire.GotoBookmark(Pointer(dxDBGrid6.selectedrows[I])); if str='' then str:=''''+t_op_aire.fieldbyname('编号').AsString+'''' else str:=str+','+''''+t_op_aire.fieldbyname('编号').AsString+''''; end; str:='('+str+')'; str:='select * from t_op_aire where 编号 in '+str+default_sort(55,'t_op_aire','','desc'); frm_ch_piliang_aire.t_op_aire.Parameters.ParamByName('SQLStr').value:=str; frm_ch_piliang_aire.t_op_aire.open; frm_ch_piliang_aire.ShowModal; finally t_op_aire.EnableControls; frm_ch_piliang_aire.Free; frm_ch_piliang_aire:=nil; end; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton24Click(Sender: TObject); var str:widestring; i:integer; begin if t_op_airi.IsEmpty then exit; if dxDBGrid7.SelectedCount<1 then begin showmessage('请选择要打印的业务帐单！！'); exit; end; if (t_op_airi.State=dsinsert)or(t_op_airi.State=dsedit) then t_op_airi.post; try frm_ch_piliang_airi:=tfrm_ch_piliang_airi.Create (self); t_op_airi.DisableControls; for i:=0 to dxDBGrid7.SelectedCount-1 do begin t_op_airi.GotoBookmark(Pointer(dxDBGrid7.selectedrows[I])); if str='' then str:=''''+t_op_airi.fieldbyname('编号').AsString+'''' else str:=str+','+''''+t_op_airi.fieldbyname('编号').AsString+''''; end; str:='('+str+')'; str:='select * from t_op_airi where 编号 in '+str+default_sort(56,'t_op_airi','','desc'); frm_ch_piliang_airi.t_op_airi.Parameters.ParamByName('SQLStr').value:=str; frm_ch_piliang_airi.t_op_airi.open; frm_ch_piliang_airi.ShowModal; finally t_op_airi.EnableControls; frm_ch_piliang_airi.Free; frm_ch_piliang_airi:=nil; end; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton13Click(Sender: TObject); begin memTblVou.First; while not memtblvou.Eof do begin memtblVou.Edit; memtblVou.FieldByName('Selected').AsInteger:=1; memtblVou.Post; memtblvou.Next; end; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton25Click(Sender: TObject); begin memTblVou.First; while not memtblvou.Eof do begin memtblVou.Edit; memtblVou.FieldByName('Selected').AsInteger:=0; memtblVou.Post; memtblvou.Next; end; end; procedure Tfrm_cw_pingzheng_yt.Edit12KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','.','-']) then key:=#0; end; procedure Tfrm_cw_pingzheng_yt.Edit10KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','.','-']) then key:=#0; end; procedure Tfrm_cw_pingzheng_yt.SQLConnectionAccBeforeConnect(Sender: TObject); begin // SQLConnectionAcc.ConnectionString:=connect_string('dsacc.ini'); end; procedure Tfrm_cw_pingzheng_yt.SQLConnectionAcc2BeforeConnect( Sender: TObject); begin // SQLConnectionAcc2.ConnectionString:=connect_string('dsacc2.ini'); end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton26Click(Sender: TObject); var str:widestring; begin str:='where 是否废除=0 and 发票号码<>'''' and not 发票号码 is null'; if not bsSkinCheckRadioBox8.Checked then str:=str+' and (财务 is null or 财务=0)'; if Edit24.text<>'' then begin if Edit26.text<>'' then str:=str+' and 发票号码>='+''''+Edit24.text+''''+' and 发票号码<='+''''+Edit26.text+'''' else str:=str+' and 业务编号 like '+''''+'%'+Edit24.text+'%'+''''; end; if Edit27.text<>'' then begin if Edit28.text<>'' then str:=str+' and 财务凭证>='+''''+Edit27.text+''''+' and 财务凭证<='+''''+Edit28.text+'''' else str:=str+' and 财务凭证 like '+''''+'%'+Edit27.text+'%'+''''; end; if Edit25.text<>'' then str:=str+' and 提单号 like '+''''+'%'+Edit25.text+'%'+''''; if wwDBDateTimePicker22.text<>''then str:=str+' and 开票日期>='+''''+wwDBDateTimePicker22.text+''''; if wwDBDateTimePicker23.text<>''then str:=str+' and 开票日期<='+''''+wwDBDateTimePicker23.text+''''; t_ch_invoice.close; t_ch_invoice.sql.clear; t_ch_invoice.sql.add('select * from t_ch_invoice '+str+' order by 发票号码'); t_ch_invoice.open; end; procedure Tfrm_cw_pingzheng_yt.DBGridEh3DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); begin with TDBGridEh(Sender), Canvas, Brush do begin if t_ch_invoice['财务'] then Color:=$00FBE8FF;//完成 if (gdSelected in State)or(gdFocused in State) then begin Font.Color:=Color; Color:=$00C08080; end; DefaultDrawColumnCell(Rect, dataCol,Column, State); end; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton28Click(Sender: TObject); var i,ordno:integer; aQuery,aAdoQuery:TAdoQuery; s:string; begin if wwDBDateTimePicker21.Text='' then begin MessageDlg('请首先设置记账日期！',mterror,[mbyes],0); exit; end; if RxDBLookupCombo6.DisplayValue='' then begin MessageDlg('请首先设置制单人！',mterror,[mbyes],0); exit; end; dmacc:=TdmAcc.Create(self); try aQuery:=CreateAdoQuery; aAdoQuery:=CreateAdoQuery; with aAdoQuery do begin Close; SQL.Clear; SQL.add('select * from t_ch_fee_do where 工作编号=:申请编号 and 类型=1'); end; dmAcc.ADOtblVou.Open; dmAcc.ADOtblVouItems.Open; aVKNO:=1; aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update t_ch_invoice set 财务=1,财务凭证=:财务凭证 where 发票号码=:发票号码'); VoucherDate:=wwDBDateTimePicker21.Date; if dxDBGrid1.SelectedCount>1 then begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); try frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=dxDBGrid1.SelectedCount; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; for i:=0 to dxDBGrid1.SelectedCount-1 do begin t_ch_invoice.GotoBookmark(Pointer(dxDBGrid1.selectedrows[I])); if t_ch_invoice['财务'] then begin MessageDlg('发票号码:'+t_ch_invoice['发票号码']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin aAdoQuery.Close; aAdoQuery.Parameters.ParamByName('申请编号').Value:=t_ch_invoice.fieldbyname('申请编号').AsString; aAdoQuery.Open; if aAdoQuery.IsEmpty then NewDrCrInv(t_ch_invoice,t_ch_invoice['发票号码'],t_ch_invoice.fieldbyname('船名航次').AsString,wwDBDateTimePicker21.Date) else begin s:=GetInvoiceNoCorpNo(t_ch_invoice.fieldbyname('申请编号').AsString); if s='' then InvoiceDr(t_ch_invoice,t_ch_invoice.fieldbyname('船名航次').AsString,wwDBDateTimePicker21.Date) else begin showmessage(s+#13#10+'财务代码没有设置'); end; end; if s='' then begin aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('发票号码').Value:=t_ch_invoice.fieldbyname('发票号码').AsString; aQuery.ExecSQL; end; end; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; end; finally freeAndNil(frm_sys_progress); end; end else begin if t_ch_invoice['财务'] then begin MessageDlg('发票号码:'+t_ch_invoice['发票号码']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin aAdoQuery.Close; aAdoQuery.Parameters.ParamByName('申请编号').Value:=t_ch_invoice.fieldbyname('申请编号').AsString; aAdoQuery.Open; if aAdoQuery.IsEmpty then NewDrCrInv(t_ch_invoice,t_ch_invoice['发票号码'],t_ch_invoice.fieldbyname('船名航次').AsString,wwDBDateTimePicker21.Date) else begin s:=GetInvoiceNoCorpNo(t_ch_invoice.fieldbyname('申请编号').AsString); if s='' then InvoiceDr(t_ch_invoice,t_ch_invoice.fieldbyname('船名航次').AsString,wwDBDateTimePicker21.Date) else begin showmessage(s+#13#10+'财务代码没有设置'); end; end; if s='' then begin aQuery.Close; aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('发票号码').Value:=t_ch_invoice.fieldbyname('发票号码').AsString; aQuery.ExecSQL; end; end; end; finally dmAcc.AdotblVouItems.Close; dmAcc.AdotblVou.Close; freeAndNil(dmacc); aAdoQuery.Free; aQuery.Free; end; bsSkinButton26.OnClick(sender); end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton2Click(Sender: TObject); begin U8; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton29Click(Sender: TObject); var Str:String; function GetCustID(CorpID,DC:String):String; var i:integer; aQuery:TADOQuery; begin aQuery:=createADOQuery; with aQuery do try Close;SQL.Clear; SQL.Add('select 财务应收帐款代码,财务应付帐款代码 from t_crm_client where 客户简称='''+CorpID+''''); Open; if DC='收' then Result:=fieldByName('财务应收帐款代码').AsString else Result:=fieldByName('财务应付帐款代码').AsString finally FreeAndNil(aQuery); end; end; begin if not bsSkinCheckRadioBox9.checked then str:=str+' and v.Status=0 '; if wwDBDateTimePicker24.text<>''then str:=str+' and v.voudate>='+''''+wwDBDateTimePicker24.text+''''; if wwDBDateTimePicker25.text<>''then str:=str+' and v.voudate<='+''''+wwDBDateTimePicker25.text+''''; if Edit31.text<>''then str:=str+' and v.ordno>='+''+Edit31.text+''; if Edit30.text<>''then str:=str+' and v.ordno<='+''+Edit30.text+''; if RxDBLookupCombo17.DisplayValue<>''then str:=str+' and v.prepared='+''''+RxDBLookupCombo17.DisplayValues[0]+''''; if Edit32.text<>'' then str:=str+' and v.ACCID='+''''+Edit32.text+''''; if RxDBLookupCombo18.DisplayValues[1]<>'' then begin str:=str+' and (v.CorpID='+''''+GetCustID(RxDBLookupCombo18.DisplayValues[1],'收')+''''+' or v.CorpID='+''''+GetCustID(RxDBLookupCombo18.DisplayValues[1],'付')+''''+')'; end; if trim(Edit33.text)<>'' then str:=str+' and v.Explan like '+''''+'%'+Edit33.text+'%'+''''; if Edit29.text<>''then str:=str+' and v.bsno like '+''''+'%'+Edit29.text+'%'+''''; with v_vouitems do begin Close;SQL.Clear; SQL.Add('Select v.* from v_vouitems V where 1=1 '); SQL.Add(str); SQL.Add('Order by V.ORDNO'); Open; end; end; procedure Tfrm_cw_pingzheng_yt.ADOConnection1BeforeConnect(Sender: TObject); begin ADOConnection1.ConnectionString:=connect_Odbc('maincw.ini'); end; procedure Tfrm_cw_pingzheng_yt.DBGridEh1DblClick(Sender: TObject); begin fee_view(t_op_seae.fieldbyname('编号').AsString); end; procedure Tfrm_cw_pingzheng_yt.DBGridEh4DblClick(Sender: TObject); begin fee_view(t_op_seai.fieldbyname('编号').AsString); end; procedure Tfrm_cw_pingzheng_yt.DBGridEh5DblClick(Sender: TObject); begin fee_view(t_op_Aire.fieldbyname('编号').AsString); end; procedure Tfrm_cw_pingzheng_yt.DBGridEh6DblClick(Sender: TObject); begin fee_view(t_op_Airi.fieldbyname('编号').AsString); end; procedure Tfrm_cw_pingzheng_yt.qryVouitemsACCIDChange(Sender: TField); begin if t_Accitems.Locate('ACCID',Trim(Sender.AsString),[])then begin Sender.DataSet.FieldByName('AccName').AsString:=t_Accitems.fieldByName('AccName').AsString; Sender.DataSet.FieldByName('DC').asString:=t_Accitems.fieldByName('DC').AsString; Sender.DataSet.FieldByName('FCY').asString:=t_Accitems.fieldByName('FCY').AsString; Sender.DataSet.FieldByName('DEPTACC').asString:=t_Accitems.fieldByName('DEPTACC').AsString; Sender.DataSet.FieldByName('EMPLACC').asString:=t_Accitems.fieldByName('EMPLACC').AsString; Sender.DataSet.FieldByName('CORPACC').asString:=t_Accitems.fieldByName('CORPACC').AsString; Sender.DataSet.FieldByName('ITEMACC').asString:=t_Accitems.fieldByName('ITEMACC').AsString; end; end; procedure Tfrm_cw_pingzheng_yt.qryVouitemsAfterPost(DataSet: TDataSet); begin qryVouitems_sum.Close; qryVouitems_sum.sql.Clear; qryVouitems_sum.SQL.Add('select ordno,sum(AmtDr) AmtDr, sum(AmtCr) AmtCr, sum(FcyDr) FcyDr, sum(FcyCr) FcyCr,sum(FcyDr*FCYEXRATE) FcyDrtoRmb, sum(FcyCr*FCYEXRATE) FcyCrtoRmb'); qryVouitems_sum.SQL.Add('from vouitems'); qryVouitems_sum.SQL.Add('where ordno=:ordno'); qryVouitems_sum.SQL.Add('Group by ordno'); qryVouitems_sum.SQL.Add('order by ordno'); qryVouitems_sum.Open; end; procedure Tfrm_cw_pingzheng_yt.qryVouitemsBeforeEdit(DataSet: TDataSet); begin if t_cw_design.FieldByName('凭证禁止修改').AsBoolean then if qryVouitems.FieldByName('cf').AsInteger=1 then begin ShowMessage('系统自动生成的分录,不可以修改'); Abort; end; end; procedure Tfrm_cw_pingzheng_yt.qryVouitemsBeforeDelete(DataSet: TDataSet); begin if t_cw_design.FieldByName('凭证禁止修改').AsBoolean then if qryVouitems.FieldByName('cf').AsInteger=1 then begin ShowMessage('系统自动生成的分录,不可以修改'); Abort; end; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton33Click(Sender: TObject); begin if qryVouitems=nil then exit; if qryVouitems.State in [dsinsert,dsedit] then qryVouitems.cancel; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton32Click(Sender: TObject); begin if qryVouitems=nil then exit; if qryVouitems.State in [dsinsert,dsedit] then qryVouitems.Post; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton31Click(Sender: TObject); begin if qryVouitems=nil then exit; qryVouitems.Delete; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton30Click(Sender: TObject); begin qryVouitems.Append; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton19Click(Sender: TObject); begin Edit9.text:=''; RxDBLookupCombo2.Value:=''; Edit2.text:=''; wwDBDateTimePicker17.text:=''; wwDBDateTimePicker18.text:=''; wwDBComboBox1.text:=''; RxDBLookupCombo7.Value:=''; Edit12.text:=''; end; procedure Tfrm_cw_pingzheng_yt.cxGrid1DBTableView1CustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin if AViewInfo.GridRecord.Values[3]='TRUE' then ACanvas.Brush.Color := $00FBE8FF;//背景色改变 end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton34Click(Sender: TObject); begin grid_save_xls(dxdbgrid2); end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton35Click(Sender: TObject); var str:widestring; begin str:='where 1=1 and 发票号码<>'''' and not 发票号码 is null'; if not bsSkinCheckRadioBox8.Checked then str:=str+' and (财务 is null or 财务=0)'; if Edit36.text<>'' then begin if Edit38.text<>'' then str:=str+' and 发票号码>='+''''+Edit36.text+''''+' and 发票号码<='+''''+Edit38.text+'''' else str:=str+' and 发票号码 like '+''''+'%'+Edit36.text+'%'+''''; end; if Edit39.text<>'' then begin if Edit40.text<>'' then str:=str+' and 财务凭证>='+''''+Edit39.text+''''+' and 财务凭证<='+''''+Edit40.text+'''' else str:=str+' and 财务凭证 like '+''''+'%'+Edit39.text+'%'+''''; end; if Edit37.text<>'' then str:=str+' and 提单号 like '+''''+'%'+Edit37.text+'%'+''''; if wwDBDateTimePicker26.text<>''then str:=str+' and 开票日期>='+''''+wwDBDateTimePicker26.text+''''; if wwDBDateTimePicker27.text<>''then str:=str+' and 开票日期<='+''''+wwDBDateTimePicker27.text+''''; t_ch_invoice_hexiao.close; t_ch_invoice_hexiao.sql.clear; t_ch_invoice_hexiao.sql.add('select * from t_ch_invoice_hexiao '+str+' order by 发票号码'); t_ch_invoice_hexiao.open; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton27Click(Sender: TObject); begin Edit24.text:=''; Edit25.text:=''; Edit26.text:=''; Edit27.text:=''; Edit28.text:=''; wwDBDateTimePicker22.text:=''; wwDBDateTimePicker23.text:=''; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton37Click(Sender: TObject); begin Edit36.text:=''; Edit37.text:=''; Edit38.text:=''; Edit39.text:=''; Edit40.text:=''; wwDBDateTimePicker26.text:=''; wwDBDateTimePicker27.text:=''; end; procedure Tfrm_cw_pingzheng_yt.bsSkinButton36Click(Sender: TObject); var i,ordno:integer; aQuery,aAdoQuery:TAdoQuery; s:string; begin if wwDBDateTimePicker21.Text='' then begin MessageDlg('请首先设置记账日期！',mterror,[mbyes],0); exit; end; if RxDBLookupCombo6.DisplayValue='' then begin MessageDlg('请首先设置制单人！',mterror,[mbyes],0); exit; end; dmacc:=TdmAcc.Create(self); try aQuery:=CreateAdoQuery; aAdoQuery:=CreateAdoQuery; with aAdoQuery do begin Close; SQL.Clear; SQL.add('select * from t_ch_fee_do where 工作编号=:申请编号 and 类型=1'); end; dmAcc.ADOtblVou.Open; dmAcc.ADOtblVouItems.Open; aVKNO:=1; aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.add('update t_ch_invoice_hexiao set 财务=1,财务凭证=:财务凭证 where 发票号码=:发票号码'); VoucherDate:=wwDBDateTimePicker21.Date; if dxDBGrid3.SelectedCount>1 then begin if not ASSIGNED(frm_sys_progress) then frm_sys_progress:=tfrm_sys_progress.Create(self); try frm_sys_progress.bsSkinGauge1.ProgressText:='正在生成凭证请稍后。。。'; frm_sys_progress.Show; frm_sys_progress.bsSkinGauge1.MaxValue:=dxDBGrid3.SelectedCount; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; for i:=0 to dxDBGrid3.SelectedCount-1 do begin t_ch_invoice_hexiao.GotoBookmark(Pointer(dxDBGrid3.selectedrows[I])); if t_ch_invoice_hexiao['财务'] then begin MessageDlg('发票号码:'+t_ch_invoice['发票号码']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin aAdoQuery.Close; aAdoQuery.Parameters.ParamByName('申请编号').Value:=t_ch_invoice_hexiao.fieldbyname('核销编号').AsString; aAdoQuery.Open; if aAdoQuery.IsEmpty then NewDrCrInvCr(t_ch_invoice_hexiao,t_ch_invoice_hexiao['发票号码'],t_ch_invoice_hexiao.fieldbyname('船名航次').AsString,wwDBDateTimePicker21.Date) else begin s:=GetInvoiceNoCorpNo(t_ch_invoice_hexiao.fieldbyname('核销编号').AsString); if s='' then InvoiceCr(t_ch_invoice_hexiao,t_ch_invoice_hexiao.fieldbyname('船名航次').AsString,wwDBDateTimePicker21.Date) else begin showmessage(s+#13#10+'财务代码没有设置'); end; end; if s='' then begin aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('发票号码').Value:=t_ch_invoice_hexiao.fieldbyname('发票号码').AsString; aQuery.ExecSQL; end; end; frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1; end; finally freeAndNil(frm_sys_progress); end; end else begin if t_ch_invoice_hexiao['财务'] then begin MessageDlg('发票号码:'+t_ch_invoice_hexiao['发票号码']+'已经生成凭证，无法重新生成！',mterror,[mbyes],0); end else begin aAdoQuery.Close; aAdoQuery.Parameters.ParamByName('申请编号').Value:=t_ch_invoice_hexiao.fieldbyname('核销编号').AsString; aAdoQuery.Open; if aAdoQuery.IsEmpty then NewDrCrInvCr(t_ch_invoice_hexiao,t_ch_invoice_hexiao['发票号码'],t_ch_invoice_hexiao.fieldbyname('船名航次').AsString,wwDBDateTimePicker21.Date) else begin s:=GetInvoiceNoCorpNo(t_ch_invoice_hexiao.fieldbyname('核销编号').AsString); if s='' then InvoiceCr(t_ch_invoice_hexiao,t_ch_invoice_hexiao.fieldbyname('船名航次').AsString,wwDBDateTimePicker21.Date) else begin showmessage(s+#13#10+'财务代码没有设置'); end; end; if s='' then begin aQuery.Close; aQuery.Parameters.ParamByName('财务凭证').Value:=dmacc.ADOTblVou.fieldbyname('ordno').AsString; aQuery.Parameters.ParamByName('发票号码').Value:=t_ch_invoice_hexiao.fieldbyname('发票号码').AsString; aQuery.ExecSQL; end; end; end; finally dmAcc.AdotblVouItems.Close; dmAcc.AdotblVou.Close; freeAndNil(dmacc); end; bsSkinButton35.OnClick(sender); end; procedure Tfrm_cw_pingzheng_yt.dxDBGrid4DblClick(Sender: TObject); begin fee_view(t_op_seae1.DataSet.fieldbyname('编号').asstring); end; procedure Tfrm_cw_pingzheng_yt.dxDBGrid6DblClick(Sender: TObject); begin fee_view(t_op_Aire1.DataSet.fieldbyname('编号').asstring); end; procedure Tfrm_cw_pingzheng_yt.dxDBGrid4CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if uppercase(ANode.Strings[dxDBGrid4Column3.Index])='TRUE' then begin AColor:=clFuchsia; exit; end; end; procedure Tfrm_cw_pingzheng_yt.dxDBGrid2CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if uppercase(ANode.Strings[dxDBGridCheckColumn2.Index])='TRUE' then begin AColor:=clFuchsia; exit; end; end; procedure Tfrm_cw_pingzheng_yt.dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if uppercase(ANode.Strings[dxDBGrid1Column1.Index])='TRUE' then begin AColor:=clFuchsia; exit; end; end; procedure Tfrm_cw_pingzheng_yt.dxDBGrid3CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if uppercase(ANode.Strings[dxDBGrid1Column1.Index])='TRUE' then begin AColor:=clFuchsia; exit; end; end; procedure Tfrm_cw_pingzheng_yt.dxDBGrid5CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if uppercase(ANode.Strings[dxDBGridColumn18.Index])='TRUE' then begin AColor:=clFuchsia; exit; end; end; end.