unit u_rp_cd_hs; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dxExEdtr, RxMemDS, DB, ADODB, Menus, XPMenu, bsSkinCtrls, dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner, ComCtrls,DateUtils, bsSkinTabs, ExtCtrls, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, kbmMemTable, kbmMemBinaryStreamFormat, wwdbdatetimepicker, RxLookup,ComObj, bsSkinBoxCtrls,inifiles, Grids, DBGrids; type Tfrm_rp_cd_hs = class(TForm) Panel1: TPanel; bsSkinPageControl1: TbsSkinPageControl; bsSkinTabSheet1: TbsSkinTabSheet; bsSkinTabSheet4: TbsSkinTabSheet; bsSkinTabSheet6: TbsSkinTabSheet; PopupMenu2: TPopupMenu; N10: TMenuItem; N11: TMenuItem; N14: TMenuItem; N13: TMenuItem; N16: TMenuItem; XPMenu2: TXPMenu; bsSkinPanel1: TbsSkinPanel; dxDBGrid9: TdxDBGrid; dxDBGridMaskColumn77: TdxDBGridMaskColumn; dxDBGridColumn27: TdxDBGridColumn; dxDBGridColumn28: TdxDBGridColumn; dxDBGridColumn29: TdxDBGridColumn; dxDBGridColumn30: TdxDBGridColumn; dxDBGridColumn31: TdxDBGridColumn; dxDBGridColumn32: TdxDBGridColumn; dxDBGridColumn33: TdxDBGridColumn; dxDBGridColumn34: TdxDBGridColumn; dxDBGridColumn35: TdxDBGridColumn; dxDBGridColumn36: TdxDBGridColumn; dxDBGridColumn37: TdxDBGridColumn; dxDBGridColumn38: TdxDBGridColumn; dxDBGridColumn39: TdxDBGridColumn; dxDBGridColumn40: TdxDBGridColumn; dxDBGridColumn41: TdxDBGridColumn; dxDBGridColumn42: TdxDBGridColumn; dxDBGridColumn43: TdxDBGridColumn; dxDBGridColumn44: TdxDBGridColumn; dxDBGridColumn45: TdxDBGridColumn; dxDBGridColumn56: TdxDBGridColumn; bsSkinButton1: TbsSkinButton; bsSkinButton10: TbsSkinButton; bsSkinButton5: TbsSkinButton; Label14: TLabel; RxDBLookupCombo3: TRxDBLookupCombo; Label3: TLabel; wwDBComboBox1: TwwDBComboBox; Label2: TLabel; wwDBComboBox20: TwwDBComboBox; Label9: TLabel; PopupMenu1: TPopupMenu; MenuItem7: TMenuItem; N1: TMenuItem; OpenDialog1: TOpenDialog; t_op_seae: TADOQuery; t_op_seae1: TDataSource; t_op_notdui: TADOQuery; t_op_notdui1: TDataSource; ADOQueryExec: TADOQuery; StringField119: TStringField; StringField120: TStringField; StringField121: TStringField; StringField122: TStringField; StringField123: TStringField; DateTimeField7: TDateTimeField; StringField124: TStringField; StringField125: TStringField; StringField126: TStringField; StringField127: TStringField; StringField128: TStringField; StringField129: TStringField; StringField130: TStringField; StringField131: TStringField; StringField132: TStringField; StringField133: TStringField; StringField134: TStringField; StringField135: TStringField; StringField136: TStringField; StringField137: TStringField; StringField138: TStringField; StringField139: TStringField; StringField140: TStringField; StringField141: TStringField; StringField142: TStringField; StringField143: TStringField; StringField144: TStringField; StringField145: TStringField; StringField146: TStringField; StringField147: TStringField; StringField148: TStringField; StringField149: TStringField; StringField150: TStringField; StringField151: TStringField; StringField152: TStringField; StringField153: TStringField; StringField154: TStringField; StringField155: TStringField; StringField156: TStringField; StringField157: TStringField; StringField158: TStringField; StringField159: TStringField; StringField160: TStringField; StringField161: TStringField; StringField162: TStringField; StringField163: TStringField; DateTimeField8: TDateTimeField; StringField164: TStringField; StringField165: TStringField; StringField166: TStringField; StringField167: TStringField; StringField168: TStringField; StringField169: TStringField; StringField170: TStringField; StringField171: TStringField; StringField172: TStringField; StringField173: TStringField; StringField174: TStringField; IntegerField3: TIntegerField; StringField175: TStringField; BCDField7: TBCDField; BCDField8: TBCDField; StringField176: TStringField; StringField177: TStringField; StringField178: TStringField; StringField179: TStringField; StringField180: TStringField; StringField181: TStringField; StringField182: TStringField; StringField183: TStringField; StringField184: TStringField; StringField185: TStringField; StringField186: TStringField; StringField187: TStringField; StringField188: TStringField; StringField189: TStringField; StringField190: TStringField; StringField191: TStringField; StringField192: TStringField; StringField193: TStringField; StringField194: TStringField; StringField195: TStringField; StringField196: TStringField; StringField197: TStringField; StringField198: TStringField; StringField199: TStringField; StringField200: TStringField; StringField201: TStringField; BooleanField5: TBooleanField; BooleanField6: TBooleanField; StringField202: TStringField; StringField203: TStringField; StringField204: TStringField; DateTimeField9: TDateTimeField; StringField205: TStringField; StringField206: TStringField; StringField207: TStringField; StringField208: TStringField; StringField209: TStringField; DateTimeField10: TDateTimeField; StringField210: TStringField; StringField211: TStringField; StringField212: TStringField; StringField213: TStringField; StringField214: TStringField; StringField215: TStringField; StringField216: TStringField; IntegerField4: TIntegerField; BooleanField7: TBooleanField; StringField217: TStringField; DateTimeField11: TDateTimeField; StringField218: TStringField; StringField219: TStringField; BCDField9: TBCDField; StringField220: TStringField; StringField221: TStringField; BCDField10: TBCDField; BCDField11: TBCDField; BCDField12: TBCDField; WordField2: TWordField; StringField222: TStringField; StringField223: TStringField; StringField224: TStringField; StringField225: TStringField; StringField226: TStringField; StringField227: TStringField; StringField228: TStringField; StringField229: TStringField; StringField230: TStringField; StringField231: TStringField; StringField232: TStringField; BooleanField8: TBooleanField; StringField233: TStringField; StringField234: TStringField; StringField235: TStringField; DateTimeField12: TDateTimeField; StringField236: TStringField; t_op_seae_edi1: TDataSource; t_op_seae_edi: TADOQuery; StringField1: TStringField; StringField2: TStringField; StringField3: TStringField; StringField4: TStringField; StringField5: TStringField; DateTimeField1: TDateTimeField; StringField6: TStringField; StringField7: TStringField; StringField8: TStringField; StringField9: TStringField; StringField10: TStringField; StringField11: TStringField; StringField12: TStringField; StringField13: TStringField; StringField14: TStringField; StringField15: TStringField; StringField16: TStringField; StringField17: TStringField; StringField18: TStringField; StringField19: TStringField; StringField20: TStringField; StringField21: TStringField; StringField22: TStringField; StringField23: TStringField; StringField24: TStringField; StringField25: TStringField; StringField26: TStringField; StringField27: TStringField; StringField28: TStringField; StringField29: TStringField; StringField30: TStringField; StringField31: TStringField; StringField32: TStringField; StringField33: TStringField; StringField34: TStringField; StringField35: TStringField; StringField36: TStringField; StringField37: TStringField; StringField38: TStringField; StringField39: TStringField; StringField40: TStringField; StringField41: TStringField; StringField42: TStringField; StringField43: TStringField; StringField44: TStringField; StringField45: TStringField; DateTimeField2: TDateTimeField; StringField46: TStringField; StringField47: TStringField; StringField48: TStringField; StringField49: TStringField; StringField50: TStringField; StringField51: TStringField; StringField52: TStringField; StringField53: TStringField; StringField54: TStringField; StringField55: TStringField; StringField56: TStringField; IntegerField1: TIntegerField; StringField57: TStringField; BCDField1: TBCDField; BCDField2: TBCDField; StringField58: TStringField; StringField59: TStringField; StringField60: TStringField; StringField61: TStringField; StringField62: TStringField; StringField63: TStringField; StringField64: TStringField; StringField65: TStringField; StringField66: TStringField; StringField67: TStringField; StringField68: TStringField; StringField69: TStringField; StringField70: TStringField; StringField71: TStringField; StringField72: TStringField; StringField73: TStringField; StringField74: TStringField; StringField75: TStringField; StringField76: TStringField; StringField77: TStringField; StringField78: TStringField; StringField79: TStringField; StringField80: TStringField; StringField81: TStringField; StringField82: TStringField; StringField83: TStringField; BooleanField1: TBooleanField; BooleanField2: TBooleanField; StringField84: TStringField; StringField85: TStringField; StringField86: TStringField; DateTimeField3: TDateTimeField; StringField87: TStringField; StringField88: TStringField; StringField89: TStringField; StringField90: TStringField; StringField91: TStringField; DateTimeField4: TDateTimeField; StringField92: TStringField; StringField93: TStringField; StringField94: TStringField; StringField95: TStringField; StringField96: TStringField; StringField97: TStringField; StringField98: TStringField; IntegerField2: TIntegerField; BooleanField3: TBooleanField; StringField99: TStringField; DateTimeField5: TDateTimeField; StringField100: TStringField; StringField101: TStringField; BCDField3: TBCDField; StringField102: TStringField; StringField103: TStringField; BCDField4: TBCDField; BCDField5: TBCDField; BCDField6: TBCDField; WordField1: TWordField; StringField104: TStringField; StringField105: TStringField; StringField106: TStringField; StringField107: TStringField; StringField108: TStringField; StringField109: TStringField; StringField110: TStringField; StringField111: TStringField; StringField112: TStringField; StringField113: TStringField; StringField114: TStringField; BooleanField4: TBooleanField; StringField115: TStringField; StringField116: TStringField; StringField117: TStringField; DateTimeField6: TDateTimeField; StringField118: TStringField; dxDBGrid4: TdxDBGrid; dxDBGridColumn19: TdxDBGridColumn; dxDBGridColumn20: TdxDBGridColumn; dxDBGridColumn21: TdxDBGridColumn; dxDBGridColumn22: TdxDBGridColumn; dxDBGridColumn23: TdxDBGridColumn; dxDBGridColumn24: TdxDBGridColumn; dxDBGridColumn25: TdxDBGridColumn; tab4: TbsSkinTabSheet; ADOTemp: TADOQuery; ADOQueryCarrierExec: TADOQuery; StringField355: TStringField; StringField356: TStringField; StringField357: TStringField; StringField358: TStringField; StringField359: TStringField; DateTimeField19: TDateTimeField; StringField360: TStringField; StringField361: TStringField; StringField362: TStringField; StringField363: TStringField; StringField364: TStringField; StringField365: TStringField; StringField366: TStringField; StringField367: TStringField; StringField368: TStringField; StringField369: TStringField; StringField370: TStringField; StringField371: TStringField; StringField372: TStringField; StringField373: TStringField; StringField374: TStringField; StringField375: TStringField; StringField376: TStringField; StringField377: TStringField; StringField378: TStringField; StringField379: TStringField; StringField380: TStringField; StringField381: TStringField; StringField382: TStringField; StringField383: TStringField; StringField384: TStringField; StringField385: TStringField; StringField386: TStringField; StringField387: TStringField; StringField388: TStringField; StringField389: TStringField; StringField390: TStringField; StringField391: TStringField; StringField392: TStringField; StringField393: TStringField; StringField394: TStringField; StringField395: TStringField; StringField396: TStringField; StringField397: TStringField; StringField398: TStringField; StringField399: TStringField; DateTimeField20: TDateTimeField; StringField400: TStringField; StringField401: TStringField; StringField402: TStringField; StringField403: TStringField; StringField404: TStringField; StringField405: TStringField; StringField406: TStringField; StringField407: TStringField; StringField408: TStringField; StringField409: TStringField; StringField410: TStringField; IntegerField7: TIntegerField; StringField411: TStringField; BCDField19: TBCDField; BCDField20: TBCDField; StringField412: TStringField; StringField413: TStringField; StringField414: TStringField; StringField415: TStringField; StringField416: TStringField; StringField417: TStringField; StringField418: TStringField; StringField419: TStringField; StringField420: TStringField; StringField421: TStringField; StringField422: TStringField; StringField423: TStringField; StringField424: TStringField; StringField425: TStringField; StringField426: TStringField; StringField427: TStringField; StringField428: TStringField; StringField429: TStringField; StringField430: TStringField; StringField431: TStringField; StringField432: TStringField; StringField433: TStringField; StringField434: TStringField; StringField435: TStringField; StringField436: TStringField; StringField437: TStringField; BooleanField13: TBooleanField; BooleanField14: TBooleanField; StringField438: TStringField; StringField439: TStringField; StringField440: TStringField; DateTimeField21: TDateTimeField; StringField441: TStringField; StringField442: TStringField; StringField443: TStringField; StringField444: TStringField; StringField445: TStringField; DateTimeField22: TDateTimeField; StringField446: TStringField; StringField447: TStringField; StringField448: TStringField; StringField449: TStringField; StringField450: TStringField; StringField451: TStringField; StringField452: TStringField; IntegerField8: TIntegerField; BooleanField15: TBooleanField; StringField453: TStringField; DateTimeField23: TDateTimeField; StringField454: TStringField; StringField455: TStringField; BCDField21: TBCDField; StringField456: TStringField; StringField457: TStringField; BCDField22: TBCDField; BCDField23: TBCDField; BCDField24: TBCDField; WordField4: TWordField; StringField458: TStringField; StringField459: TStringField; StringField460: TStringField; StringField461: TStringField; StringField462: TStringField; StringField463: TStringField; StringField464: TStringField; StringField465: TStringField; StringField466: TStringField; StringField467: TStringField; StringField468: TStringField; BooleanField16: TBooleanField; StringField469: TStringField; StringField470: TStringField; StringField471: TStringField; DateTimeField24: TDateTimeField; StringField472: TStringField; bsSkinPageControl2: TbsSkinPageControl; bstab1: TbsSkinTabSheet; bsSkinTabSheet2: TbsSkinTabSheet; dxDBGrid1: TdxDBGrid; dxDBGrid1Column27: TdxDBGridColumn; dxDBGrid1Column36: TdxDBGridColumn; dxDBGrid1Column23: TdxDBGridColumn; dxDBGrid1Column1: TdxDBGridMaskColumn; dxDBGrid1Column2: TdxDBGridMaskColumn; dxDBGrid1Column3: TdxDBGridMaskColumn; dxDBGrid1Column6: TdxDBGridMaskColumn; dxDBGrid1Column7: TdxDBGridMaskColumn; dxDBGrid1Column8: TdxDBGridMaskColumn; dxDBGrid1Column10: TdxDBGridMaskColumn; dxDBGrid1Column11: TdxDBGridMaskColumn; dxDBGrid1Column18: TdxDBGridMaskColumn; dxDBGrid1Column20: TdxDBGridColumn; dxDBGrid1Column21: TdxDBGridColumn; dxDBGrid1Column22: TdxDBGridColumn; dxDBGrid1Column24: TdxDBGridColumn; dxDBGrid1Column25: TdxDBGridColumn; dxDBGrid1Column26: TdxDBGridColumn; dxDBGrid1Column33: TdxDBGridColumn; dxDBGrid1Column31: TdxDBGridColumn; dxDBGrid1Column32: TdxDBGridColumn; dxDBGrid1Column28: TdxDBGridColumn; dxDBGrid1Column29: TdxDBGridColumn; bsSkinPanel2: TbsSkinPanel; Label39: TLabel; bsSkinButton3: TbsSkinButton; bsSkinCheckRadioBox1: TbsSkinCheckRadioBox; bsSkinButton6: TbsSkinButton; bsSkinButton7: TbsSkinButton; wwDBComboBox44: TwwDBComboBox; bsSkinButton8: TbsSkinButton; dxDBGrid2: TdxDBGrid; dxDBGridColumn6: TdxDBGridColumn; dxDBGridColumn8: TdxDBGridColumn; dxDBGridColumn13: TdxDBGridColumn; dxDBGrid2Column8: TdxDBGridColumn; dxDBGrid2Column5: TdxDBGridColumn; dxDBGrid2Column6: TdxDBGridColumn; dxDBGrid2Column7: TdxDBGridColumn; bsSkinGroupBox1: TbsSkinGroupBox; dxDBGrid3: TdxDBGrid; dxDBGridColumn1: TdxDBGridColumn; dxDBGridColumn2: TdxDBGridColumn; dxDBGridColumn3: TdxDBGridColumn; dxDBGridMaskColumn1: TdxDBGridMaskColumn; dxDBGridMaskColumn2: TdxDBGridMaskColumn; dxDBGridMaskColumn3: TdxDBGridMaskColumn; dxDBGridMaskColumn4: TdxDBGridMaskColumn; dxDBGridMaskColumn5: TdxDBGridMaskColumn; dxDBGridMaskColumn6: TdxDBGridMaskColumn; dxDBGridMaskColumn7: TdxDBGridMaskColumn; dxDBGridMaskColumn8: TdxDBGridMaskColumn; dxDBGridDateColumn1: TdxDBGridDateColumn; dxDBGridMaskColumn9: TdxDBGridMaskColumn; dxDBGridDateColumn2: TdxDBGridDateColumn; dxDBGridColumn4: TdxDBGridColumn; dxDBGridColumn5: TdxDBGridColumn; dxDBGridColumn9: TdxDBGridColumn; dxDBGridColumn10: TdxDBGridColumn; dxDBGridColumn11: TdxDBGridColumn; dxDBGridColumn12: TdxDBGridColumn; dxDBGridColumn14: TdxDBGridColumn; dxDBGridColumn15: TdxDBGridColumn; dxDBGridColumn16: TdxDBGridColumn; dxDBGridColumn17: TdxDBGridColumn; dxDBGridColumn18: TdxDBGridColumn; bsSkinPanel3: TbsSkinPanel; bsSkinButton4: TbsSkinButton; t_cust_ttl1: TDataSource; t_cust_ttl: TADOQuery; dxDBGrid4Column8: TdxDBGridColumn; bsSkinButton2: TbsSkinButton; dxDBGrid5: TdxDBGrid; dxDBGridColumn26: TdxDBGridColumn; dxDBGridColumn46: TdxDBGridColumn; dxDBGridColumn47: TdxDBGridColumn; dxDBGridColumn48: TdxDBGridColumn; dxDBGridColumn49: TdxDBGridColumn; dxDBGridColumn50: TdxDBGridColumn; dxDBGridColumn51: TdxDBGridColumn; dxDBGridColumn52: TdxDBGridColumn; bsSkinPanel4: TbsSkinPanel; bsSkinButton9: TbsSkinButton; t_cd_dui1: TDataSource; t_cd_dui: TADOQuery; dxDBGrid5Column9: TdxDBGridColumn; dxDBGrid5Column10: TdxDBGridColumn; bsSkinButton11: TbsSkinButton; bsSkinButton12: TbsSkinButton; bsSkinButton13: TbsSkinButton; Label1: TLabel; SaveDialog1: TSaveDialog; bsSkinGroupBox2: TbsSkinGroupBox; Splitter2: TSplitter; bsSkinCheckRadioBox2: TbsSkinCheckRadioBox; t_cd_dui_detail1: TDataSource; t_cd_dui_detail: TADOQuery; StringField237: TStringField; StringField238: TStringField; StringField239: TStringField; StringField240: TStringField; StringField241: TStringField; DateTimeField13: TDateTimeField; StringField242: TStringField; StringField243: TStringField; StringField244: TStringField; StringField245: TStringField; StringField246: TStringField; StringField247: TStringField; StringField248: TStringField; StringField249: TStringField; StringField250: TStringField; StringField251: TStringField; StringField252: TStringField; StringField253: TStringField; StringField254: TStringField; StringField255: TStringField; StringField256: TStringField; StringField257: TStringField; StringField258: TStringField; StringField259: TStringField; StringField260: TStringField; StringField261: TStringField; StringField262: TStringField; StringField263: TStringField; StringField264: TStringField; StringField265: TStringField; StringField266: TStringField; StringField267: TStringField; StringField268: TStringField; StringField269: TStringField; StringField270: TStringField; StringField271: TStringField; StringField272: TStringField; StringField273: TStringField; StringField274: TStringField; StringField275: TStringField; StringField276: TStringField; StringField277: TStringField; StringField278: TStringField; StringField279: TStringField; StringField280: TStringField; StringField281: TStringField; DateTimeField14: TDateTimeField; StringField282: TStringField; StringField283: TStringField; StringField284: TStringField; StringField285: TStringField; StringField286: TStringField; StringField287: TStringField; StringField288: TStringField; StringField289: TStringField; StringField290: TStringField; StringField291: TStringField; StringField292: TStringField; IntegerField5: TIntegerField; StringField293: TStringField; BCDField13: TBCDField; BCDField14: TBCDField; StringField294: TStringField; StringField295: TStringField; StringField296: TStringField; StringField297: TStringField; StringField298: TStringField; StringField299: TStringField; StringField300: TStringField; StringField301: TStringField; StringField302: TStringField; StringField303: TStringField; StringField304: TStringField; StringField305: TStringField; StringField306: TStringField; StringField307: TStringField; StringField308: TStringField; StringField309: TStringField; StringField310: TStringField; StringField311: TStringField; StringField312: TStringField; StringField313: TStringField; StringField314: TStringField; StringField315: TStringField; StringField316: TStringField; StringField317: TStringField; StringField318: TStringField; StringField319: TStringField; BooleanField9: TBooleanField; BooleanField10: TBooleanField; StringField320: TStringField; StringField321: TStringField; StringField322: TStringField; DateTimeField15: TDateTimeField; StringField323: TStringField; StringField324: TStringField; StringField325: TStringField; StringField326: TStringField; StringField327: TStringField; DateTimeField16: TDateTimeField; StringField328: TStringField; StringField329: TStringField; StringField330: TStringField; StringField331: TStringField; StringField332: TStringField; StringField333: TStringField; StringField334: TStringField; IntegerField6: TIntegerField; BooleanField11: TBooleanField; StringField335: TStringField; DateTimeField17: TDateTimeField; StringField336: TStringField; StringField337: TStringField; BCDField15: TBCDField; StringField338: TStringField; StringField339: TStringField; BCDField16: TBCDField; BCDField17: TBCDField; BCDField18: TBCDField; WordField3: TWordField; StringField340: TStringField; StringField341: TStringField; StringField342: TStringField; StringField343: TStringField; StringField344: TStringField; StringField345: TStringField; StringField346: TStringField; StringField347: TStringField; StringField348: TStringField; StringField349: TStringField; StringField350: TStringField; BooleanField12: TBooleanField; StringField351: TStringField; StringField352: TStringField; StringField353: TStringField; DateTimeField18: TDateTimeField; StringField354: TStringField; dxDBGrid6: TdxDBGrid; dxDBGridMaskColumn13: TdxDBGridMaskColumn; dxDBGridMaskColumn14: TdxDBGridMaskColumn; dxDBGridMaskColumn16: TdxDBGridMaskColumn; dxDBGridMaskColumn17: TdxDBGridMaskColumn; dxDBGridDateColumn3: TdxDBGridDateColumn; dxDBGridMaskColumn18: TdxDBGridMaskColumn; dxDBGridDateColumn4: TdxDBGridDateColumn; dxDBGridColumn58: TdxDBGridColumn; dxDBGridColumn60: TdxDBGridColumn; dxDBGridColumn61: TdxDBGridColumn; dxDBGridColumn62: TdxDBGridColumn; dxDBGridColumn63: TdxDBGridColumn; dxDBGridColumn64: TdxDBGridColumn; dxDBGridColumn65: TdxDBGridColumn; dxDBGridColumn67: TdxDBGridColumn; Edit1: TEdit; Edit2: TEdit; DONGSHENG7: TADOConnection; d7Query1: TADOQuery; d7Query2: TADOQuery; d7temp: TADOQuery; d7Query3: TADOQuery; d7Query4: TADOQuery; sSysGetBillNo_new: TADOStoredProc; dxDBGrid5Column11: TdxDBGridColumn; dxDBGrid5Column12: TdxDBGridColumn; PopupMenu3: TPopupMenu; MenuItem1: TMenuItem; MenuItem2: TMenuItem; MenuItem3: TMenuItem; MenuItem4: TMenuItem; MenuItem8: TMenuItem; bsSkinSplitter1: TbsSkinSplitter; bsSkinButton14: TbsSkinButton; bsSkinButton15: TbsSkinButton; Edit3: TEdit; Label4: TLabel; bsSkinPanel5: TbsSkinPanel; Label5: TLabel; bsSkinButton17: TbsSkinButton; Edit4: TEdit; Label6: TLabel; Edit5: TEdit; Label7: TLabel; Edit6: TEdit; bsSkinButton16: TbsSkinButton; bsSkinButton18: TbsSkinButton; PopupMenu4: TPopupMenu; MenuItem5: TMenuItem; MenuItem6: TMenuItem; MenuItem9: TMenuItem; MenuItem10: TMenuItem; MenuItem13: TMenuItem; PopupMenu5: TPopupMenu; MenuItem11: TMenuItem; MenuItem12: TMenuItem; MenuItem14: TMenuItem; MenuItem15: TMenuItem; MenuItem18: TMenuItem; PopupMenu6: TPopupMenu; MenuItem16: TMenuItem; MenuItem17: TMenuItem; MenuItem19: TMenuItem; MenuItem20: TMenuItem; MenuItem23: TMenuItem; bsSkinButton19: TbsSkinButton; dxDBGrid2Column9: TdxDBGridColumn; Label8: TLabel; Edit7: TEdit; dxDBGrid4Column9: TdxDBGridColumn; dxDBGrid1Column30: TdxDBGridColumn; dxDBGrid1Column34: TdxDBGridColumn; dxDBGrid1Column35: TdxDBGridColumn; dxDBGrid1Column37: TdxDBGridColumn; PopupMenu7: TPopupMenu; MenuItem21: TMenuItem; MenuItem22: TMenuItem; MenuItem24: TMenuItem; MenuItem25: TMenuItem; MenuItem28: TMenuItem; dxDBGrid1Column38: TdxDBGridColumn; dxDBGrid1Column12: TdxDBGridColumn; dxDBGrid1Column19: TdxDBGridColumn; dxDBGrid5Column13: TdxDBGridColumn; dxDBGrid6Column16: TdxDBGridColumn; dxDBGrid6Column17: TdxDBGridColumn; dxDBGrid6Column18: TdxDBGridColumn; dxDBGrid6Column19: TdxDBGridColumn; ADOQueryShanghaiExec: TADOQuery; StringField473: TStringField; StringField474: TStringField; StringField475: TStringField; StringField476: TStringField; StringField477: TStringField; DateTimeField25: TDateTimeField; StringField478: TStringField; StringField479: TStringField; StringField480: TStringField; StringField481: TStringField; StringField482: TStringField; StringField483: TStringField; StringField484: TStringField; StringField485: TStringField; StringField486: TStringField; StringField487: TStringField; StringField488: TStringField; StringField489: TStringField; StringField490: TStringField; StringField491: TStringField; StringField492: TStringField; StringField493: TStringField; StringField494: TStringField; StringField495: TStringField; StringField496: TStringField; StringField497: TStringField; StringField498: TStringField; StringField499: TStringField; StringField500: TStringField; StringField501: TStringField; StringField502: TStringField; StringField503: TStringField; StringField504: TStringField; StringField505: TStringField; StringField506: TStringField; StringField507: TStringField; StringField508: TStringField; StringField509: TStringField; StringField510: TStringField; StringField511: TStringField; StringField512: TStringField; StringField513: TStringField; StringField514: TStringField; StringField515: TStringField; StringField516: TStringField; StringField517: TStringField; DateTimeField26: TDateTimeField; StringField518: TStringField; StringField519: TStringField; StringField520: TStringField; StringField521: TStringField; StringField522: TStringField; StringField523: TStringField; StringField524: TStringField; StringField525: TStringField; StringField526: TStringField; StringField527: TStringField; StringField528: TStringField; IntegerField9: TIntegerField; StringField529: TStringField; BCDField25: TBCDField; BCDField26: TBCDField; StringField530: TStringField; StringField531: TStringField; StringField532: TStringField; StringField533: TStringField; StringField534: TStringField; StringField535: TStringField; StringField536: TStringField; StringField537: TStringField; StringField538: TStringField; StringField539: TStringField; StringField540: TStringField; StringField541: TStringField; StringField542: TStringField; StringField543: TStringField; StringField544: TStringField; StringField545: TStringField; StringField546: TStringField; StringField547: TStringField; StringField548: TStringField; StringField549: TStringField; StringField550: TStringField; StringField551: TStringField; StringField552: TStringField; StringField553: TStringField; StringField554: TStringField; StringField555: TStringField; BooleanField17: TBooleanField; BooleanField18: TBooleanField; StringField556: TStringField; StringField557: TStringField; StringField558: TStringField; DateTimeField27: TDateTimeField; StringField559: TStringField; StringField560: TStringField; StringField561: TStringField; StringField562: TStringField; StringField563: TStringField; DateTimeField28: TDateTimeField; StringField564: TStringField; StringField565: TStringField; StringField566: TStringField; StringField567: TStringField; StringField568: TStringField; StringField569: TStringField; StringField570: TStringField; IntegerField10: TIntegerField; BooleanField19: TBooleanField; StringField571: TStringField; DateTimeField29: TDateTimeField; StringField572: TStringField; StringField573: TStringField; BCDField27: TBCDField; StringField574: TStringField; StringField575: TStringField; BCDField28: TBCDField; BCDField29: TBCDField; BCDField30: TBCDField; WordField5: TWordField; StringField576: TStringField; StringField577: TStringField; StringField578: TStringField; StringField579: TStringField; StringField580: TStringField; StringField581: TStringField; StringField582: TStringField; StringField583: TStringField; StringField584: TStringField; StringField585: TStringField; StringField586: TStringField; BooleanField20: TBooleanField; StringField587: TStringField; StringField588: TStringField; StringField589: TStringField; DateTimeField30: TDateTimeField; StringField590: TStringField; bsSkinButton20: TbsSkinButton; procedure bsSkinButton5Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); procedure N10Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure bsSkinButton6Click(Sender: TObject); procedure bsSkinButton7Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure bsSkinCheckRadioBox1Click(Sender: TObject); procedure wwDBComboBox44Change(Sender: TObject); procedure bsSkinButton8Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinButton12Click(Sender: TObject); procedure t_cd_duiAfterInsert(DataSet: TDataSet); procedure bsSkinCheckRadioBox2Click(Sender: TObject); procedure bsSkinButton11Click(Sender: TObject); procedure DONGSHENG7BeforeConnect(Sender: TObject); procedure bsSkinButton13Click(Sender: TObject); procedure MenuItem1Click(Sender: TObject); procedure bsSkinButton14Click(Sender: TObject); procedure bsSkinButton15Click(Sender: TObject); procedure dxDBGrid2Click(Sender: TObject); procedure bsSkinButton17Click(Sender: TObject); procedure bsSkinButton16Click(Sender: TObject); procedure bsSkinButton18Click(Sender: TObject); procedure MenuItem9Click(Sender: TObject); procedure MenuItem13Click(Sender: TObject); procedure MenuItem11Click(Sender: TObject); procedure MenuItem14Click(Sender: TObject); procedure MenuItem18Click(Sender: TObject); procedure MenuItem16Click(Sender: TObject); procedure MenuItem19Click(Sender: TObject); procedure MenuItem23Click(Sender: TObject); procedure bsSkinButton19Click(Sender: TObject); procedure MenuItem21Click(Sender: TObject); procedure MenuItem24Click(Sender: TObject); procedure MenuItem28Click(Sender: TObject); procedure MenuItem3Click(Sender: TObject); procedure MenuItem8Click(Sender: TObject); procedure dxDBGrid1Column19GetText(Sender: TObject; ANode: TdxTreeListNode; var AText: String); procedure bsSkinButton20Click(Sender: TObject); private { Private declarations } procedure pgChange(Sender: TObject); procedure getcustno(); public end; var frm_rp_cd_hs: Tfrm_rp_cd_hs; rp_rp_total_open:boolean; implementation uses u_main, my_sys_function, u_rp_query, u_sys_progress, u_data_share, u_UpdateSy; {$R *.dfm} procedure Tfrm_rp_cd_hs.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_rp_cd_hs.FormClose(Sender: TObject; var Action: TCloseAction); var inifile1:Tinifile; begin savereggrid(dxdbgrid1,caption+'1'); savereggrid(dxdbgrid2,caption+'12'); savereggrid(dxdbgrid3,caption+'3'); savereggrid(dxdbgrid4,caption+'4'); savereggrid(dxdbgrid5,caption+'5'); savereggrid(dxdbgrid6,caption+'6'); frm_rp_cd_hs.Hide; frm_rp_cd_hs.ManualFloat(frm_rp_cd_hs.BoundsRect ); frm_main.freeTabs('frm_rp_cd_hs'); action:=cafree; frm_rp_cd_hs:=nil; end; procedure Tfrm_rp_cd_hs.FormShow(Sender: TObject); var bYear,bMonth,bDate:Word; inifile1:Tinifile; strmonth:string; begin DecodeDate(incmonth(Now,-1),bYear,bMonth,bDate); wwDBComboBox20.Text:=IntToStr(bYear); wwDBComboBox20.Text:=IntToStr(YearOf(date)); strmonth:=IntToStr(bMonth); if Length(strmonth)=1 then strmonth:='0'+strmonth; wwDBComboBox1.Text:=strmonth; loadreggrid(dxdbgrid1,true,caption+'1'); loadreggrid(dxdbgrid2,true,caption+'12'); loadreggrid(dxdbgrid3,true,caption+'3'); loadreggrid(dxdbgrid4,true,caption+'4'); loadreggrid(dxdbgrid5,true,caption+'5'); loadreggrid(dxdbgrid6,true,caption+'6'); bsSkinPageControl1.OnChange:=pgChange; end; procedure Tfrm_rp_cd_hs.N10Click(Sender: TObject); begin update_grid_view_no(dxdbgrid2); exit; end; procedure Tfrm_rp_cd_hs.N14Click(Sender: TObject); begin update_grid_view_all(dxdbgrid2); exit; end; procedure Tfrm_rp_cd_hs.N16Click(Sender: TObject); begin grid_save_xls(dxdbgrid2); exit; end; procedure Tfrm_rp_cd_hs.bsSkinButton1Click(Sender: TObject); var Ext,cb:string; ExcelTemplet:Variant; i:integer; aQuery:TADOQuery; betd,eetd:TDate; begin betd:=EncodeDate(StrToInt(wwDBComboBox20.Text), StrToInt(wwDBComboBox1.Text), 1); eetd:=IncMonth(betd,1) ; if MessageDlg('确实要导出到'+wwDBComboBox20.Text+'年'+wwDBComboBox1.Text+'月成本吗?',mtWarning,[mbYes,mbNo],0)=mrNo then exit; if OpenDialog1.Execute then begin Ext:=lowercase(ExtractFileExt(OpenDialog1.FileName)); if (Ext='.xls') or (Ext='.xlsx') then begin ExcelTemplet:= CreateOleObject('Excel.Application'); aQuery:=CreateAdoQuery; try ExcelTemplet.Workbooks.Open(OpenDialog1.FileName); I:=2; aQuery.SQL.Text:='SELECT top 0 * FROM op_cd_chengben WHERE 年份='''+wwDBComboBox20.Text+''' AND 月度='''+wwDBComboBox1.Text+''''; aQuery.Open; 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:=40000; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; while VartoStr(ExcelTemplet.ActiveSheet.Cells[I,1].Value)<>'' do //件数 begin aQuery.append; aQuery.FieldByName('提单号').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,1].Value); cb:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,2].Value); aQuery.FieldByName('成本').AsFloat:=strtofloatdef(cb,0); aQuery.FieldByName('年份').AsString:=wwDBComboBox20.Text; aQuery.FieldByName('月度').AsString:=wwDBComboBox1.Text; aQuery.FieldByName('船代').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,3].Value); // aQuery.FieldByName('备注').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,4].Value); aQuery.FieldByName('对账标志').AsString:='0'; aQuery.Post; i:=i+1; frm_sys_progress.bsSkinGauge1.Value := frm_sys_progress.bsSkinGauge1.Value + 1; end; ADOQueryExec.Close; ADOQueryExec.Parameters.ParamByName('BEGINDATE').Value:=FormatDateTime('yyyy-mm-dd',betd); ADOQueryExec.Parameters.ParamByName('ENDDATE').Value:=FormatDateTime('yyyy-mm-dd',eetd); ADOQueryExec.Parameters.ParamByName('CDYEAR').Value:=wwDBComboBox20.Text; ADOQueryExec.Parameters.ParamByName('CDMONTH').Value:=wwDBComboBox1.Text; ADOQueryExec.ExecSQL; aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.Add('UPDATE t_op_seae_edi SET 成本=c.成本 from t_op_seae_edi b'); aQuery.SQL.Add(' left join op_cd_chengben c on (c.编号=b.编号)'); aQuery.SQL.Add(' where b.录入日期>='''+formatdatetime('yyyy-mm-dd',betd)+''' and b.录入日期<'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(b.成本,0)=0 and isnull(b.分提单号,'''')='''' and c.编号 is not null'); aQuery.SQL.Add(' AND c.年份='''+wwDBComboBox20.Text+''' AND c.月度='''+wwDBComboBox1.Text+''''); aQuery.ExecSQL; finally frm_sys_progress.close; frm_sys_progress := nil; showmessage('导入完成'); ExcelTemplet.DisplayAlerts := false;//是否提示存盘 ExcelTemplet.Quit;//如果出错则退出 end; end; end; end; procedure Tfrm_rp_cd_hs.bsSkinButton10Click(Sender: TObject); var betd,eetd:TDate; begin betd:=EncodeDate(StrToInt(wwDBComboBox20.Text), StrToInt(wwDBComboBox1.Text), 1); eetd:=IncMonth(betd,1) ; t_op_seae.Close; t_op_seae.SQL.Clear; t_op_seae.SQL.Add('select * from t_op_seae_edi where 录入日期>='''+formatdatetime('yyyy-mm-dd',betd)+''''); t_op_seae.SQL.Add(' and 录入日期<'''+formatdatetime('yyyy-mm-dd',eetd)+''''); if (RxDBLookupCombo3.DisplayValue<>'') then t_op_seae.SQL.Add(' and 揽货人='''+RxDBLookupCombo3.Text+''''); if (Edit1.Text<>'') then t_op_seae.SQL.Add(' and 委托发送方 like ''%'+Edit1.Text+'%'''); t_op_seae.Open; t_op_notdui.Close; t_op_notdui.SQL.Text:='select * from op_cd_chengben where isnull(对账标志,''0'')=''0'' and 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''' '; t_op_notdui.Open; end; procedure Tfrm_rp_cd_hs.bsSkinButton3Click(Sender: TObject); var i:integer; begin try t_op_notdui.DisableControls; for i:=0 to dxDBGrid2.SelectedCount-1 do begin t_op_notdui.GotoBookmark(pointer(dxDBGrid2.selectedrows[i])); t_op_notdui.Edit; t_op_notdui.FieldByName('标识类别').AsString:='利润调整'; t_op_notdui.FieldByName('标识人').AsString:=employee; t_op_notdui.FieldByName('标识日期').AsDateTime:=now; t_op_notdui.Post; end; finally t_op_notdui.EnableControls; end; ADOTemp.Close; ADOTemp.SQL.text:='update op_cd_chengben set 客户=(select top 1 委托发送方 from t_op_seae_edi where 主提单号=op_cd_chengben.提单号) ' +'from op_cd_chengben where isnull(对账标志,''0'')=''0'' and 标识类别=''利润调整'' and isnull(客户,'''')='''' and 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''''; ADOTemp.ExecSQL; t_op_notdui.Requery(); end; procedure Tfrm_rp_cd_hs.bsSkinButton6Click(Sender: TObject); var i:integer; begin try t_op_notdui.DisableControls; for i:=0 to dxDBGrid2.SelectedCount-1 do begin t_op_notdui.GotoBookmark(pointer(dxDBGrid2.selectedrows[i])); t_op_notdui.Edit; t_op_notdui.FieldByName('标识类别').AsString:='船代多扣'; t_op_notdui.FieldByName('标识人').AsString:=employee; t_op_notdui.FieldByName('标识日期').AsDateTime:=now; t_op_notdui.Post; end; finally t_op_notdui.EnableControls; end; end; procedure Tfrm_rp_cd_hs.bsSkinButton7Click(Sender: TObject); var i:integer; begin try t_op_notdui.DisableControls; for i:=0 to dxDBGrid2.SelectedCount-1 do begin t_op_notdui.GotoBookmark(pointer(dxDBGrid2.selectedrows[i])); t_op_notdui.Edit; t_op_notdui.FieldByName('标识类别').AsString:='操作失误'; t_op_notdui.FieldByName('标识人').AsString:=employee; t_op_notdui.FieldByName('标识日期').AsDateTime:=now; t_op_notdui.Post; end; finally t_op_notdui.EnableControls; end; end; procedure Tfrm_rp_cd_hs.bsSkinButton4Click(Sender: TObject); var i:integer; begin if t_op_seae_edi.IsEmpty then Exit; if t_op_notdui.IsEmpty then Exit; try t_op_notdui.DisableControls; for i:=0 to dxDBGrid3.SelectedCount-1 do begin t_op_seae_edi.GotoBookmark(pointer(dxDBGrid3.selectedrows[i])); t_op_seae_edi.Edit; t_op_seae_edi['成本']:=t_op_seae_edi.fieldbyname('成本').AsFloat+t_op_notdui['成本']; t_op_seae_edi['船代']:=t_op_notdui['船代']; t_op_seae_edi.Post; t_op_notdui.Edit; t_op_notdui.FieldByName('对账标志').AsString:='1'; t_op_notdui.FieldByName('编号').AsString:=t_op_seae_edi.fieldbyname('编号').AsString; t_op_notdui.Post; end; t_op_notdui.Requery(); finally t_op_notdui.EnableControls; end; end; procedure Tfrm_rp_cd_hs.bsSkinCheckRadioBox1Click(Sender: TObject); begin if (bsSkinCheckRadioBox1.Checked) then begin bsSkinGroupBox1.Visible:=True; t_op_seae_edi.Close; t_op_seae_edi.DataSource:=t_op_notdui1; t_op_seae_edi.Open; end else begin bsSkinGroupBox1.Visible:=false; t_op_seae_edi.Close; t_op_seae_edi.DataSource:=nil; end; end; procedure Tfrm_rp_cd_hs.wwDBComboBox44Change(Sender: TObject); var betd,eetd:TDate; begin betd:=EncodeDate(StrToInt(wwDBComboBox20.Text), StrToInt(wwDBComboBox1.Text), 1); eetd:=IncMonth(betd,1) ; if (wwDBComboBox44.Text='') or (wwDBComboBox44.Text='全部') then begin t_op_notdui.Close; t_op_notdui.SQL.Text:='select * from op_cd_chengben where isnull(对账标志,''0'')=''0'' and 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''' '; t_op_notdui.Open; end else if (wwDBComboBox44.Text='仅上月业务') then begin t_op_notdui.Close; t_op_notdui.SQL.Text:='select * from op_cd_chengben where isnull(对账标志,''0'')=''0'' and 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''' ' +' and EXISTS (select 1 from t_op_seae_edi b LEFT JOIN chuandaikoufei KF ON (KF.船代=b.船代) and kf.类型=b.备注 where KF.是否扣费=1 ' +' and op_cd_chengben.提单号=b.主提单号 and op_cd_chengben.船代=b.船代 and b.录入日期<'''+formatdatetime('yyyy-mm-dd',betd)+''' and isnull(b.成本,0)=0 and isnull(b.分提单号,'''')='''' ) ' +' and NOT EXISTS (select 1 from t_op_seae_edi b LEFT JOIN chuandaikoufei KF ON (KF.船代=b.船代) and kf.类型=b.备注 where KF.是否扣费=1 ' +' and op_cd_chengben.提单号=b.主提单号 and op_cd_chengben.船代=b.船代 and b.录入日期>='''+formatdatetime('yyyy-mm-dd',betd)+''' and isnull(b.成本,0)=0 and isnull(b.分提单号,'''')='''' ) '; ; t_op_notdui.Open; end else if (wwDBComboBox44.Text='仅船代不一致') then begin t_op_notdui.Close; t_op_notdui.SQL.Text:='select * from op_cd_chengben c where isnull(对账标志,''0'')=''0'' and 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''' ' +' and EXISTS (select 1 from t_op_seae_edi b LEFT JOIN chuandaikoufei KF ON (KF.船代=b.船代) and kf.类型=b.备注 where KF.是否扣费=1 ' +' and c.提单号=b.主提单号 and c.船代<>b.船代 and b.录入日期>='''+formatdatetime('yyyy-mm-dd',betd)+'''' +' and b.录入日期<'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(b.成本,0)=0 and isnull(b.分提单号,'''')='''' ) '; t_op_notdui.Open; end else if (wwDBComboBox44.Text='仅未标识') then begin t_op_notdui.Close; t_op_notdui.SQL.Text:='select * from op_cd_chengben c where isnull(对账标志,''0'')=''0'' and 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''' ' +' and isnull(标识类别,'''')='''' '; t_op_notdui.Open; end else if (wwDBComboBox44.Text='仅利润调整') then begin t_op_notdui.Close; t_op_notdui.SQL.Text:='select * from op_cd_chengben c where isnull(对账标志,''0'')=''0'' and 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''' ' +' and isnull(标识类别,'''')=''利润调整'' '; t_op_notdui.Open; end else if (wwDBComboBox44.Text='仅船代多扣') then begin t_op_notdui.Close; t_op_notdui.SQL.Text:='select * from op_cd_chengben c where isnull(对账标志,''0'')=''0'' and 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''' ' +' and isnull(标识类别,'''')=''船代多扣'' '; t_op_notdui.Open; end else if (wwDBComboBox44.Text='仅操作失误') then begin t_op_notdui.Close; t_op_notdui.SQL.Text:='select * from op_cd_chengben c where isnull(对账标志,''0'')=''0'' and 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''' ' +' and isnull(标识类别,'''')=''操作失误'' '; t_op_notdui.Open; end end; procedure Tfrm_rp_cd_hs.bsSkinButton8Click(Sender: TObject); var i:integer; betd,eetd:TDate; begin betd:=EncodeDate(StrToInt(wwDBComboBox20.Text), StrToInt(wwDBComboBox1.Text), 1); eetd:=IncMonth(betd,1) ; try t_op_notdui.DisableControls; for i:=0 to dxDBGrid2.SelectedCount-1 do begin t_op_notdui.GotoBookmark(pointer(dxDBGrid2.selectedrows[i])); ADOQueryCarrierExec.Close; ADOQueryCarrierExec.Parameters.ParamByName('BEGINDATE').Value:=betd; ADOQueryCarrierExec.Parameters.ParamByName('ENDDATE').Value:=eetd; ADOQueryCarrierExec.Parameters.ParamByName('CDYEAR').Value:=wwDBComboBox20.Text; ADOQueryCarrierExec.Parameters.ParamByName('CDMONTH').Value:=wwDBComboBox1.Text; ADOQueryCarrierExec.Parameters.ParamByName('id').Value:=t_op_notdui['id']; ADOQueryCarrierExec.ExecSQL; ADOTemp.Close; ADOTemp.SQL.Clear; ADOTemp.SQL.Add('UPDATE t_op_seae_edi SET 成本=c.成本,船代=c.船代 from t_op_seae_edi b'); ADOTemp.SQL.Add(' left join op_cd_chengben c on (c.编号=b.编号)'); ADOTemp.SQL.Add(' where b.录入日期>='''+formatdatetime('yyyy-mm-dd',betd)+''' and b.录入日期<'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(b.成本,0)=0 and isnull(b.分提单号,'''')='''' and c.id='+t_op_notdui.fieldbyname('id').AsString); ADOTemp.SQL.Add(' AND c.年份='''+wwDBComboBox20.Text+''' AND c.月度='''+wwDBComboBox1.Text+''''); ADOTemp.ExecSQL; end; t_op_notdui.Requery(); finally t_op_notdui.EnableControls; end; end; procedure Tfrm_rp_cd_hs.bsSkinButton2Click(Sender: TObject); var betd,eetd:TDate; begin betd:=EncodeDate(StrToInt(wwDBComboBox20.Text), StrToInt(wwDBComboBox1.Text), 1); eetd:=IncMonth(betd,1) ; t_cust_ttl.Close; t_cust_ttl.Parameters.ParamByName('BDATE').Value:=formatdatetime('yyyy-mm-dd',betd); t_cust_ttl.Parameters.ParamByName('EDATE').Value:=formatdatetime('yyyy-mm-dd',eetd); t_cust_ttl.Parameters.ParamByName('aYEAR').Value:=wwDBComboBox20.Text; t_cust_ttl.Parameters.ParamByName('aMONTH').Value:=wwDBComboBox1.Text; t_cust_ttl.Open; end; procedure Tfrm_rp_cd_hs.pgChange(Sender: TObject); begin if (bsSkinPageControl1.ActivePage=bsSkinTabSheet4) then begin bsSkinButton2.OnClick(NIL); end; end; procedure Tfrm_rp_cd_hs.bsSkinButton9Click(Sender: TObject); var dbno:string; betd,eetd:TDate; begin betd:=EncodeDate(StrToInt(wwDBComboBox20.Text), StrToInt(wwDBComboBox1.Text), 1); eetd:=IncMonth(betd,1) ; bsSkinButton2.OnClick(NIL); if (not t_cust_ttl.IsEmpty) then begin t_cd_dui.Close; t_cd_dui.Parameters.ParamByName('ACCYEAR').Value:=wwDBComboBox20.Text; t_cd_dui.Parameters.ParamByName('ACCMONTH').Value:=wwDBComboBox1.Text; t_cd_dui.Open; try 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:=t_cust_ttl.RecordCount; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; t_cust_ttl.First; while not t_cust_ttl.Eof do begin if (t_cust_ttl.FieldByName('收入').AsFloat<>0) then begin dbno:=get_no(date,'D1'); ADOTemp.Close; if (t_cust_ttl.FieldByName('日期标准').AsString='开船日期') then ADOTemp.SQL.Text:='update t_op_seae_edi set 对帐编号='''+dbno+''' where 委托发送方='''+t_cust_ttl.fieldbyname('客户名称').AsString+''' and 开船日期>='''+formatdatetime('yyyy-mm-dd',betd)+''' and 开船日期<'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(对帐编号,'''')='''' ' else ADOTemp.SQL.Text:='update t_op_seae_edi set 对帐编号='''+dbno+''' where 委托发送方='''+t_cust_ttl.fieldbyname('客户名称').AsString+''' and 录入日期>='''+formatdatetime('yyyy-mm-dd',betd)+''' and 录入日期<'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(对帐编号,'''')='''' '; ADOTemp.ExecSQL; ADOTemp.Close; ADOTemp.SQL.Text:='select sum(isnull(应收,0)) 收入,sum(isnull(成本,0)) 成本 from t_op_seae_edi where 对帐编号='''+dbno+''' '; ADOTemp.Open; t_cd_dui.Insert; t_cd_dui['对帐编号']:=dbno; t_cd_dui['客户名称']:=t_cust_ttl['客户名称']; t_cd_dui['揽货人']:=t_cust_ttl['揽货人']; t_cd_dui['充值方式']:=t_cust_ttl['充值方式']; t_cd_dui['日期标准']:=t_cust_ttl['日期标准']; t_cd_dui['金额']:=ADOTemp['收入']; t_cd_dui['成本']:=ADOTemp['成本']; t_cd_dui.Post; end; frm_sys_progress.bsSkinGauge1.Value := frm_sys_progress.bsSkinGauge1.Value + 1; t_cust_ttl.Next; end; finally frm_sys_progress.close; frm_sys_progress := nil; showmessage('生成完毕'); end; end; end; procedure Tfrm_rp_cd_hs.bsSkinButton12Click(Sender: TObject); begin t_cd_dui.Close; t_cd_dui.SQL.Clear; t_cd_dui.SQL.Add('select *,(select TOP 1 FromName FROM CANGDAN_CUSTOMER WHERE CUSTOMERNAME=t_cd_dui.客户名称) 客户来源,(select TOP 1 DSCustomerGid FROM CANGDAN_CUSTOMER WHERE CUSTOMERNAME=t_cd_dui.客户名称) CUSTID from t_cd_dui where 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''''); if (Edit2.Text<>'') then t_cd_dui.SQL.Add(' and 客户名称 like ''%'+Edit2.Text+'%'''); t_cd_dui.Open; end; procedure Tfrm_rp_cd_hs.t_cd_duiAfterInsert(DataSet: TDataSet); begin t_cd_dui['对帐日期']:=date; t_cd_dui['对帐人']:=employee; t_cd_dui['对帐状态']:='新建'; t_cd_dui['年份']:=wwDBComboBox20.Text; t_cd_dui['月度']:=wwDBComboBox1.Text; end; procedure Tfrm_rp_cd_hs.bsSkinCheckRadioBox2Click(Sender: TObject); begin if (bsSkinCheckRadioBox2.Checked) then begin bsSkinGroupBox2.Visible:=True; t_cd_dui_detail.Close; t_cd_dui_detail.DataSource:=t_cd_dui1; t_cd_dui_detail.Open; end else begin bsSkinGroupBox2.Visible:=false; t_cd_dui_detail.Close; t_cd_dui_detail.DataSource:=nil; end; end; procedure Tfrm_rp_cd_hs.bsSkinButton11Click(Sender: TObject); var filepath,strfile:string; i:Integer; begin if SaveDialog1.Execute then begin filepath:=ExtractFilePath(SaveDialog1.FileName); end; try 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:=dxDBGrid5.SelectedCount; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; t_cd_dui.DisableControls; t_cd_dui_detail.Close; t_cd_dui_detail.DataSource:=t_cd_dui1; // t_cd_dui_detail.Open; for i:=0 to dxDBGrid5.SelectedCount-1 do begin t_cd_dui.GotoBookmark(pointer(dxDBGrid5.selectedrows[i])); t_cd_dui_detail.Close; t_cd_dui_detail.Open; strfile:=filepath+'\'+t_cd_dui.FieldByName('客户名称').AsString+wwDBComboBox20.text+'年'+wwDBComboBox1.text+'月.xls'; dxDBGrid6.SaveToXLS(strfile,true); frm_sys_progress.bsSkinGauge1.Value := frm_sys_progress.bsSkinGauge1.Value + 1; end; finally frm_sys_progress.close; frm_sys_progress := nil; t_cd_dui.EnableControls; end; end; procedure Tfrm_rp_cd_hs.DONGSHENG7BeforeConnect(Sender: TObject); begin DONGSHENG7.ConnectionString:=connect_string('dongsheng7.ini'); end; procedure Tfrm_rp_cd_hs.bsSkinButton13Click(Sender: TObject); var i:Integer; bsno,custname:string; begin d7Query1.Close; d7Query1.SQL.Text:='select top 1 * from op_other'; d7Query1.Open; try 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:=dxDBGrid5.SelectedCount; frm_sys_progress.bsSkinGauge1.MinValue:=0; frm_sys_progress.bsSkinGauge1.Value:=0; frm_sys_progress.Update; t_cd_dui.DisableControls; t_cd_dui_detail.Close; t_cd_dui_detail.DataSource:=t_cd_dui1; // t_cd_dui_detail.Open; for i:=0 to dxDBGrid5.SelectedCount-1 do begin t_cd_dui.GotoBookmark(pointer(dxDBGrid5.selectedrows[i])); d7temp.Close; d7temp.SQL.text:='select SHORTNAME from info_client where gid='''+t_cd_dui.fieldbyname('CUSTID').AsString+''' '; d7temp.Open; if (d7temp.IsEmpty) then begin ShowMessage('客户：'+t_cd_dui.fieldbyname('客户名称').AsString+' 未匹配D7客户名称,不能生成业务！'); end else begin custname:=d7temp.fieldbyname('SHORTNAME').AsString; if (t_cd_dui.FieldByName('对帐状态').AsString<>'生成业务') then begin d7temp.Close; d7temp.SQL.text:='select newid() NEWID '; d7temp.Open; bsno:=d7temp['NEWID']; d7Query1.Insert; d7Query1['BSNO']:=bsno; d7Query1['OPLB']:='op_other'; d7Query1['OPLBNAME']:='散杂运输'; d7Query1['BSSTATUS']:=false; d7Query1['FEESTATUS']:=false; d7Query1['BSDATE']:=Date; d7Query1['ACCDATE']:=FormatDateTime('YYYY-MM',Date); d7Query1['CUSTNO']:=t_cd_dui['对帐编号']; d7Query1['CUSTOMERNAME']:=custname; d7Query1['BSSOURCE']:='舱单申报'; d7Query1['BSSOURCEDETAIL']:='舱单月结'; d7Query1['OP']:=t_cd_dui['对帐人']; d7Query1['CUSTSERVICE']:=t_cd_dui['对帐人']; d7Query1['SALE']:=t_cd_dui['揽货人']; d7Query1['CORPID']:='Comcab2d43f60454327af30a131fc1d3abd'; d7Query1['ETD']:=Date; d7Query1['REMARK']:=t_cd_dui.fieldbyname('客户名称').AsString+' 月结 '+wwDBComboBox20.Text+'年'+wwDBComboBox1.Text+'月 舱单账单'+t_cd_dui.fieldbyname('金额').asstring; d7Query1['CREATETIME']:=Date; d7Query1['CREATEUSER']:='67b62785-227d-4f5e-a86f-1d58e376f114'; d7Query1.Post; d7Query2.Close; d7Query2.SQL.Text:='select top 0 * from ch_fee'; d7Query2.Open; d7temp.Close; d7temp.SQL.text:='select newid() NEWID '; d7temp.Open; d7Query2.Insert; d7Query2['GID']:=d7temp['NEWID']; d7Query2['BSNO']:=bsno; d7Query2['FEETYPE']:=1; d7Query2['FEENAME']:='舱单费'; d7Query2['FEEDESCRIPTION']:='CDF'; d7Query2['CUSTOMERTYPE']:='委托单位'; d7Query2['CUSTOMERNAME']:=custname; d7Query2['UNIT']:='单票'; d7Query2['UNITPRICE']:=t_cd_dui['金额']; d7Query2['QUANTITY']:=1; d7Query2['AMOUNT']:=t_cd_dui['金额']; d7Query2['CURRENCY']:='RMB'; d7Query2['EXCHANGERATE']:=1; d7Query2['REMARK']:=''; d7Query2['SETTLEMENT']:=0; d7Query2['INVOICE']:=0; d7Query2['ORDERAMOUNT']:=0; d7Query2['ORDERINVOICE']:=0; d7Query2['ENTEROPERATOR']:='67b62785-227d-4f5e-a86f-1d58e376f114'; d7Query2['ENTERDATE']:=DATE; d7Query2['DEBITNO']:=''; d7Query2['ISDEBIT']:=false; d7Query2['ISOPEN']:=false; d7Query2['ISADVANCEDPAY']:=false; d7Query2['SORT']:=1; d7Query2['ISINVOICE']:=false; d7Query2['FEESTATUS']:=1; d7Query2['LINENUM']:=1; d7Query2['TAXRATE']:=0; d7Query2['NOTAXAMOUNT']:=t_cd_dui['金额']; d7Query2['ACCTAXRATE']:=0; d7Query2['TAX']:=0; d7Query2['ORDERSETTLEMENT']:=0; d7Query2['TAXUNITPRICE']:=t_cd_dui['金额']; d7Query2['ORDERINVSETTLEMENT']:=0; d7Query2.Post; d7temp.Close; d7temp.SQL.text:='select newid() NEWID '; d7temp.Open; d7Query2.Insert; d7Query2['GID']:=d7temp['NEWID']; d7Query2['BSNO']:=bsno; d7Query2['FEETYPE']:=2; d7Query2['FEENAME']:='舱单费'; d7Query2['FEEDESCRIPTION']:='CDF'; d7Query2['CUSTOMERTYPE']:='其他'; d7Query2['CUSTOMERNAME']:='船代'; d7Query2['UNIT']:='单票'; d7Query2['UNITPRICE']:=t_cd_dui['成本']; d7Query2['QUANTITY']:=1; d7Query2['AMOUNT']:=t_cd_dui['成本']; d7Query2['CURRENCY']:='RMB'; d7Query2['EXCHANGERATE']:=1; d7Query2['REMARK']:=''; d7Query2['SETTLEMENT']:=0; d7Query2['INVOICE']:=0; d7Query2['ORDERAMOUNT']:=0; d7Query2['ORDERINVOICE']:=0; d7Query2['ENTEROPERATOR']:='67b62785-227d-4f5e-a86f-1d58e376f114'; d7Query2['ENTERDATE']:=DATE; d7Query2['DEBITNO']:=''; d7Query2['ISDEBIT']:=false; d7Query2['ISOPEN']:=false; d7Query2['ISADVANCEDPAY']:=false; d7Query2['SORT']:=1; d7Query2['ISINVOICE']:=false; d7Query2['FEESTATUS']:=1; d7Query2['LINENUM']:=1; d7Query2['TAXRATE']:=0; d7Query2['NOTAXAMOUNT']:=t_cd_dui['成本']; d7Query2['ACCTAXRATE']:=0; d7Query2['TAX']:=0; d7Query2['ORDERSETTLEMENT']:=0; d7Query2['TAXUNITPRICE']:=t_cd_dui['成本']; d7Query2['ORDERINVSETTLEMENT']:=0; d7Query2.Post; t_cd_dui.Edit; t_cd_dui['对帐状态']:='生成业务'; t_cd_dui['BSNO']:=BSNO; t_cd_dui.Post; end; end; frm_sys_progress.bsSkinGauge1.Value := frm_sys_progress.bsSkinGauge1.Value + 1; end; finally frm_sys_progress.close; frm_sys_progress := nil; t_cd_dui.EnableControls; end; end; procedure Tfrm_rp_cd_hs.getcustno; begin { decodedate(d1,get_year,get_month,get_day); if get_month<10 then str:=no+inttostr(get_year)+'0'+inttostr(get_month) else str:=no+inttostr(get_year)+inttostr(get_month); sSysGetBillNo_new.Parameters.ParamByName('Code').value:=str; sSysGetBillNo_new.ExecProc; result:=sSysGetBillNo_new.Parameters.ParamByName('ps_BillNo').value; } end; procedure Tfrm_rp_cd_hs.MenuItem1Click(Sender: TObject); begin update_grid_view_no(dxdbgrid3); exit; end; procedure Tfrm_rp_cd_hs.bsSkinButton14Click(Sender: TObject); var Ext,cb:string; ExcelTemplet:Variant; i:integer; aQuery:TADOQuery; betd,eetd:TDate; begin betd:=EncodeDate(StrToInt(wwDBComboBox20.Text), StrToInt(wwDBComboBox1.Text), 1); eetd:=IncMonth(betd,1) ; ADOQueryExec.Close; ADOQueryExec.Close; ADOQueryExec.Parameters.ParamByName('BEGINDATE').Value:=FormatDateTime('yyyy-mm-dd',betd); ADOQueryExec.Parameters.ParamByName('ENDDATE').Value:=FormatDateTime('yyyy-mm-dd',eetd); ADOQueryExec.Parameters.ParamByName('CDYEAR').Value:=wwDBComboBox20.Text; ADOQueryExec.Parameters.ParamByName('CDMONTH').Value:=wwDBComboBox1.Text; ADOQueryExec.ExecSQL; aQuery:=CreateAdoQuery; try aQuery.Close; aQuery.SQL.Clear; aQuery.SQL.Add('UPDATE t_op_seae_edi SET 成本=c.成本 from t_op_seae_edi b'); aQuery.SQL.Add(' left join op_cd_chengben c on (c.编号=b.编号)'); aQuery.SQL.Add(' where b.录入日期>='''+formatdatetime('yyyy-mm-dd',betd)+''' and b.录入日期<'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(b.成本,0)=0 and c.编号 is not null'); aQuery.SQL.Add(' AND c.年份='''+wwDBComboBox20.Text+''' AND c.月度='''+wwDBComboBox1.Text+''''); aQuery.ExecSQL; finally FreeAndNil(aQuery); end; if (t_op_notdui.Active) then begin t_op_notdui.Close; t_op_notdui.SQL.Text:='select * from op_cd_chengben where isnull(对账标志,''0'')=''0'' and 年份='''+wwDBComboBox20.Text+''' and 月度='''+wwDBComboBox1.Text+''' '; t_op_notdui.Open; end; ShowMessage('对账完成！'); end; procedure Tfrm_rp_cd_hs.bsSkinButton15Click(Sender: TObject); begin t_op_seae_edi.Close; t_op_seae_edi.DataSource:=nil; t_op_seae_edi.SQL.text:='select * from t_op_seae_edi where 主提单号 like ''%'+edit3.Text+'%'''; t_op_seae_edi.Open; end; procedure Tfrm_rp_cd_hs.dxDBGrid2Click(Sender: TObject); begin if (bsSkinCheckRadioBox1.Checked) then begin t_op_seae_edi.Close; t_op_seae_edi.SQL.text:='select * from t_op_seae_edi where 主提单号=:提单号'; t_op_seae_edi.DataSource:=t_op_notdui1; t_op_seae_edi.Open; end; end; procedure Tfrm_rp_cd_hs.bsSkinButton17Click(Sender: TObject); var betd,eetd:TDate; begin betd:=EncodeDate(StrToInt(wwDBComboBox20.Text), StrToInt(wwDBComboBox1.Text), 1); eetd:=IncMonth(betd,1) ; t_op_seae.Close; t_op_seae.SQL.Clear; t_op_seae.SQL.Add('select * from t_op_seae_edi where 录入日期>='''+formatdatetime('yyyy-mm-dd',betd)+''''); t_op_seae.SQL.Add(' and 录入日期<'''+formatdatetime('yyyy-mm-dd',eetd)+''''); if (RxDBLookupCombo3.DisplayValue<>'') then t_op_seae.SQL.Add(' and 揽货人='''+RxDBLookupCombo3.Text+''''); if (Edit1.Text<>'') then t_op_seae.SQL.Add(' and 委托发送方 like ''%'+Edit1.Text+'%'''); if (Edit4.Text<>'') then t_op_seae.SQL.Add(' and 主提单号 like ''%'+Edit4.Text+'%'''); if (Edit5.Text<>'') then t_op_seae.SQL.Add(' and 船代='''+Edit5.Text+''''); if (Edit6.Text<>'') then t_op_seae.SQL.Add(' and 备注 like ''%'+Edit6.Text+'%'''); if (Edit7.Text<>'') then t_op_seae.SQL.Add(' and 委托发送方 like ''%'+Edit7.Text+'%'''); t_op_seae.Open; end; procedure Tfrm_rp_cd_hs.bsSkinButton16Click(Sender: TObject); var i:integer; aQuery:TADOQuery; begin if t_op_seae.IsEmpty then Exit; aQuery:=CreateAdoQuery; try t_op_seae.DisableControls; for i:=0 to dxDBGrid1.SelectedCount-1 do begin t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i])); aQuery.Close; aQuery.SQL.Text:='update op_cd_chengben set 对账标志=''0'',编号='''' where 编号='''+t_op_seae.fieldbyname('编号').asstring+''' '; aQuery.ExecSQL; t_op_seae.Edit; t_op_seae['成本']:=0; t_op_seae.Post; end; finally FreeAndNil(aQuery); t_op_seae.EnableControls; end; ShowMessage('取消匹配完成！'); end; procedure Tfrm_rp_cd_hs.bsSkinButton18Click(Sender: TObject); begin if t_op_notdui.FieldByName('对账标志').AsString='1' then begin showmessage('已匹配不能修改,删除！'); Exit; end; if MessageDlg('确定要删除选中的提单号：'+t_op_notdui.fieldbyname('提单号').AsString+'数据吗？',mtWarning,[mbyes,mbno],0)=mryes then begin t_op_notdui.Delete; end; end; procedure Tfrm_rp_cd_hs.MenuItem9Click(Sender: TObject); begin update_grid_view_all(dxdbgrid1); exit; end; procedure Tfrm_rp_cd_hs.MenuItem13Click(Sender: TObject); begin grid_save_xls(dxdbgrid1); exit; end; procedure Tfrm_rp_cd_hs.MenuItem11Click(Sender: TObject); begin update_grid_view_no(dxdbgrid4); exit; end; procedure Tfrm_rp_cd_hs.MenuItem14Click(Sender: TObject); begin update_grid_view_all(dxdbgrid4); exit; end; procedure Tfrm_rp_cd_hs.MenuItem18Click(Sender: TObject); begin grid_save_xls(dxdbgrid4); exit; end; procedure Tfrm_rp_cd_hs.MenuItem16Click(Sender: TObject); begin update_grid_view_no(dxdbgrid5); exit; end; procedure Tfrm_rp_cd_hs.MenuItem19Click(Sender: TObject); begin update_grid_view_all(dxdbgrid5); exit; end; procedure Tfrm_rp_cd_hs.MenuItem23Click(Sender: TObject); begin grid_save_xls(dxdbgrid5); exit; end; procedure Tfrm_rp_cd_hs.bsSkinButton19Click(Sender: TObject); begin if t_op_seae.IsEmpty then exit; if dxDBGrid1.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 frmUpdateSy:=tfrmUpdateSy.Create (self); frmUpdateSy.ShowModal; finally frmUpdateSy.Free; frmUpdateSy:=nil; end; end; procedure Tfrm_rp_cd_hs.MenuItem21Click(Sender: TObject); begin update_grid_view_no(dxdbgrid6); exit; end; procedure Tfrm_rp_cd_hs.MenuItem24Click(Sender: TObject); begin update_grid_view_all(dxdbgrid6); exit; end; procedure Tfrm_rp_cd_hs.MenuItem28Click(Sender: TObject); begin grid_save_xls(dxdbgrid6); exit; end; procedure Tfrm_rp_cd_hs.MenuItem3Click(Sender: TObject); begin update_grid_view_all(dxdbgrid3); exit; end; procedure Tfrm_rp_cd_hs.MenuItem8Click(Sender: TObject); begin grid_save_xls(dxdbgrid3); exit; end; procedure Tfrm_rp_cd_hs.dxDBGrid1Column19GetText(Sender: TObject; ANode: TdxTreeListNode; var AText: String); begin AText:=FormatDateTime('yyyy-mm-dd',strtodatetime(AText)) ; end; procedure Tfrm_rp_cd_hs.bsSkinButton20Click(Sender: TObject); var i:integer; betd,eetd:TDate; begin betd:=EncodeDate(StrToInt(wwDBComboBox20.Text), StrToInt(wwDBComboBox1.Text), 1); eetd:=IncMonth(betd,1) ; try t_op_notdui.DisableControls; for i:=0 to dxDBGrid2.SelectedCount-1 do begin t_op_notdui.GotoBookmark(pointer(dxDBGrid2.selectedrows[i])); ADOQueryShanghaiExec.Close; ADOQueryShanghaiExec.Parameters.ParamByName('BEGINDATE').Value:=betd; ADOQueryShanghaiExec.Parameters.ParamByName('ENDDATE').Value:=eetd; ADOQueryShanghaiExec.Parameters.ParamByName('CDYEAR').Value:=wwDBComboBox20.Text; ADOQueryShanghaiExec.Parameters.ParamByName('CDMONTH').Value:=wwDBComboBox1.Text; ADOQueryShanghaiExec.Parameters.ParamByName('id').Value:=t_op_notdui['id']; ADOQueryShanghaiExec.ExecSQL; ADOTemp.Close; ADOTemp.SQL.Clear; ADOTemp.SQL.Add('UPDATE t_op_seae_edi SET 成本=c.成本,船代=c.船代 from t_op_seae_edi b'); ADOTemp.SQL.Add(' left join op_cd_chengben c on (c.编号=b.编号)'); ADOTemp.SQL.Add(' where b.录入日期>='''+formatdatetime('yyyy-mm-dd',betd)+''' and b.录入日期<'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(b.成本,0)=0 and isnull(b.分提单号,'''')='''' and c.id='+t_op_notdui.fieldbyname('id').AsString); ADOTemp.SQL.Add(' AND c.年份='''+wwDBComboBox20.Text+''' AND c.月度='''+wwDBComboBox1.Text+''''); ADOTemp.ExecSQL; end; t_op_notdui.Requery(); finally t_op_notdui.EnableControls; end; end; end.