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('ȷʵҪ<CAB5> <D2AA> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '+wwDBComboBox20.Text+'<27> <> '+wwDBComboBox1.Text+'<27> ³ɱ<C2B3> <C9B1> <EFBFBD> ?',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 <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' AND <20> ¶<EFBFBD> ='''+wwDBComboBox1.Text+'''';
aQuery.Open;
if not ASSIGNED(frm_sys_progress) then
frm_sys_progress := tfrm_sys_progress.Create(self);
frm_sys_progress.bsSkinGauge1.ProgressText:='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> Ժ<D4BA> <F3A1A3A1> <EFBFBD> ';
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 //<2F> <> <EFBFBD> <EFBFBD>
begin
aQuery.append;
aQuery.FieldByName('<27> ᵥ<EFBFBD> <E1B5A5> ').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,1].Value);
cb:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,2].Value);
aQuery.FieldByName('<27> ɱ<EFBFBD> ').AsFloat:=strtofloatdef(cb,0);
aQuery.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').AsString:=wwDBComboBox20.Text;
aQuery.FieldByName('<27> ¶<EFBFBD> ').AsString:=wwDBComboBox1.Text;
aQuery.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,3].Value);
// aQuery.FieldByName('<27> <> ע').AsString:=VartoStr(ExcelTemplet.ActiveSheet.Cells[I,4].Value);
aQuery.FieldByName('<27> <> <EFBFBD> ˱<EFBFBD> ־').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 <20> ɱ<EFBFBD> =c.<2E> ɱ<EFBFBD> from t_op_seae_edi b');
aQuery.SQL.Add(' left join op_cd_chengben c on (c.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> <EFBFBD> <EFBFBD> )');
aQuery.SQL.Add(' where b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >='''+formatdatetime('yyyy-mm-dd',betd)+''' and b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(b.<2E> ɱ<EFBFBD> ,0)=0 and isnull(b.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ,'''')='''' and c.<2E> <> <EFBFBD> <EFBFBD> is not null');
aQuery.SQL.Add(' AND c.<2E> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' AND c.<2E> ¶<EFBFBD> ='''+wwDBComboBox1.Text+'''');
aQuery.ExecSQL;
finally
frm_sys_progress.close;
frm_sys_progress := nil;
showmessage('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ');
ExcelTemplet.DisplayAlerts := false;//<2F> Ƿ<EFBFBD> <C7B7> <EFBFBD> ʾ <EFBFBD> <CABE> <EFBFBD> <EFBFBD>
ExcelTemplet.Quit;//<2F> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ˳<EFBFBD>
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 ¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >='''+formatdatetime('yyyy-mm-dd',betd)+'''');
t_op_seae.SQL.Add(' and ¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <'''+formatdatetime('yyyy-mm-dd',eetd)+'''');
if (RxDBLookupCombo3.DisplayValue<>'') then
t_op_seae.SQL.Add(' and <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ='''+RxDBLookupCombo3.Text+'''');
if (Edit1.Text<>'') then
t_op_seae.SQL.Add(' and ί<> з<EFBFBD> <D0B7> ͷ<EFBFBD> like ''%'+Edit1.Text+'%''');
t_op_seae.Open;
t_op_notdui.Close;
t_op_notdui.SQL.Text:='select * from op_cd_chengben where isnull(<28> <> <EFBFBD> ˱<EFBFBD> ־,''0'')=''0'' and <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+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('<27> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> ').AsString:='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ';
t_op_notdui.FieldByName('<27> <> ʶ<EFBFBD> <CAB6> ').AsString:=employee;
t_op_notdui.FieldByName('<27> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> ').AsDateTime:=now;
t_op_notdui.Post;
end;
finally
t_op_notdui.EnableControls;
end;
ADOTemp.Close;
ADOTemp.SQL.text:='update op_cd_chengben set <20> ͻ<EFBFBD> =(select top 1 ί<> з<EFBFBD> <D0B7> ͷ<EFBFBD> from t_op_seae_edi where <20> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> =op_cd_chengben.<2E> ᵥ<EFBFBD> <E1B5A5> ) '
+'from op_cd_chengben where isnull(<28> <> <EFBFBD> ˱<EFBFBD> ־,''0'')=''0'' and <20> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> =''<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '' and isnull(<28> ͻ<EFBFBD> ,'''')='''' and <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+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('<27> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> ').AsString:='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ';
t_op_notdui.FieldByName('<27> <> ʶ<EFBFBD> <CAB6> ').AsString:=employee;
t_op_notdui.FieldByName('<27> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> ').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('<27> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> ').AsString:='<27> <> <EFBFBD> <EFBFBD> ʧ<EFBFBD> <CAA7> ';
t_op_notdui.FieldByName('<27> <> ʶ<EFBFBD> <CAB6> ').AsString:=employee;
t_op_notdui.FieldByName('<27> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> ').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['<27> ɱ<EFBFBD> ']:=t_op_seae_edi.fieldbyname('<27> ɱ<EFBFBD> ').AsFloat+t_op_notdui['<27> ɱ<EFBFBD> '];
t_op_seae_edi['<27> <> <EFBFBD> <EFBFBD> ']:=t_op_notdui['<27> <> <EFBFBD> <EFBFBD> '];
t_op_seae_edi.Post;
t_op_notdui.Edit;
t_op_notdui.FieldByName('<27> <> <EFBFBD> ˱<EFBFBD> ־').AsString:='1';
t_op_notdui.FieldByName('<27> <> <EFBFBD> <EFBFBD> ').AsString:=t_op_seae_edi.fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').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='ȫ<> <C8AB> ') then begin
t_op_notdui.Close;
t_op_notdui.SQL.Text:='select * from op_cd_chengben where isnull(<28> <> <EFBFBD> ˱<EFBFBD> ־,''0'')=''0'' and <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+wwDBComboBox1.Text+''' ';
t_op_notdui.Open;
end else if (wwDBComboBox44.Text='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ҵ<EFBFBD> <D2B5> ') then begin
t_op_notdui.Close;
t_op_notdui.SQL.Text:='select * from op_cd_chengben where isnull(<28> <> <EFBFBD> ˱<EFBFBD> ־,''0'')=''0'' and <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+wwDBComboBox1.Text+''' '
+' and EXISTS (select 1 from t_op_seae_edi b LEFT JOIN chuandaikoufei KF ON (KF.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> <EFBFBD> <EFBFBD> ) and kf.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> ע where KF.<2E> Ƿ<EFBFBD> <C7B7> ۷ <EFBFBD> =1 '
+' and op_cd_chengben.<2E> ᵥ<EFBFBD> <E1B5A5> =b.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> and op_cd_chengben.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> <EFBFBD> <EFBFBD> and b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <'''+formatdatetime('yyyy-mm-dd',betd)+''' and isnull(b.<2E> ɱ<EFBFBD> ,0)=0 and isnull(b.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ,'''')='''' ) '
+' and NOT EXISTS (select 1 from t_op_seae_edi b LEFT JOIN chuandaikoufei KF ON (KF.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> <EFBFBD> <EFBFBD> ) and kf.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> ע where KF.<2E> Ƿ<EFBFBD> <C7B7> ۷ <EFBFBD> =1 '
+' and op_cd_chengben.<2E> ᵥ<EFBFBD> <E1B5A5> =b.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> and op_cd_chengben.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> <EFBFBD> <EFBFBD> and b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >='''+formatdatetime('yyyy-mm-dd',betd)+''' and isnull(b.<2E> ɱ<EFBFBD> ,0)=0 and isnull(b.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ,'''')='''' ) '; ;
t_op_notdui.Open;
end else if (wwDBComboBox44.Text='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> һ <EFBFBD> <D2BB> ') then begin
t_op_notdui.Close;
t_op_notdui.SQL.Text:='select * from op_cd_chengben c where isnull(<28> <> <EFBFBD> ˱<EFBFBD> ־,''0'')=''0'' and <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+wwDBComboBox1.Text+''' '
+' and EXISTS (select 1 from t_op_seae_edi b LEFT JOIN chuandaikoufei KF ON (KF.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> <EFBFBD> <EFBFBD> ) and kf.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> ע where KF.<2E> Ƿ<EFBFBD> <C7B7> ۷ <EFBFBD> =1 '
+' and c.<2E> ᵥ<EFBFBD> <E1B5A5> =b.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> and c.<2E> <> <EFBFBD> <EFBFBD> <>b.<2E> <> <EFBFBD> <EFBFBD> and b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >='''+formatdatetime('yyyy-mm-dd',betd)+''''
+' and b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(b.<2E> ɱ<EFBFBD> ,0)=0 and isnull(b.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ,'''')='''' ) ';
t_op_notdui.Open;
end else if (wwDBComboBox44.Text='<27> <> δ<EFBFBD> <CEB4> ʶ') then begin
t_op_notdui.Close;
t_op_notdui.SQL.Text:='select * from op_cd_chengben c where isnull(<28> <> <EFBFBD> ˱<EFBFBD> ־,''0'')=''0'' and <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+wwDBComboBox1.Text+''' '
+' and isnull(<28> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> ,'''')='''' ';
t_op_notdui.Open;
end else if (wwDBComboBox44.Text='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ') then begin
t_op_notdui.Close;
t_op_notdui.SQL.Text:='select * from op_cd_chengben c where isnull(<28> <> <EFBFBD> ˱<EFBFBD> ־,''0'')=''0'' and <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+wwDBComboBox1.Text+''' '
+' and isnull(<28> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> ,'''')=''<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '' ';
t_op_notdui.Open;
end else if (wwDBComboBox44.Text='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ') then begin
t_op_notdui.Close;
t_op_notdui.SQL.Text:='select * from op_cd_chengben c where isnull(<28> <> <EFBFBD> ˱<EFBFBD> ־,''0'')=''0'' and <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+wwDBComboBox1.Text+''' '
+' and isnull(<28> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> ,'''')=''<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '' ';
t_op_notdui.Open;
end else if (wwDBComboBox44.Text='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ʧ<EFBFBD> <CAA7> ') then begin
t_op_notdui.Close;
t_op_notdui.SQL.Text:='select * from op_cd_chengben c where isnull(<28> <> <EFBFBD> ˱<EFBFBD> ־,''0'')=''0'' and <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+wwDBComboBox1.Text+''' '
+' and isnull(<28> <> ʶ<EFBFBD> <CAB6> <EFBFBD> <EFBFBD> ,'''')=''<27> <> <EFBFBD> <EFBFBD> ʧ<EFBFBD> <CAA7> '' ';
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 <20> ɱ<EFBFBD> =c.<2E> ɱ<EFBFBD> ,<2C> <> <EFBFBD> <EFBFBD> =c.<2E> <> <EFBFBD> <EFBFBD> from t_op_seae_edi b');
ADOTemp.SQL.Add(' left join op_cd_chengben c on (c.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> <EFBFBD> <EFBFBD> )');
ADOTemp.SQL.Add(' where b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >='''+formatdatetime('yyyy-mm-dd',betd)+''' and b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(b.<2E> ɱ<EFBFBD> ,0)=0 and isnull(b.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ,'''')='''' and c.id='+t_op_notdui.fieldbyname('id').AsString);
ADOTemp.SQL.Add(' AND c.<2E> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' AND c.<2E> ¶<EFBFBD> ='''+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:='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> Ժ<D4BA> <F3A1A3A1> <EFBFBD> ';
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('<27> <> <EFBFBD> <EFBFBD> ').AsFloat<>0) then begin
dbno:=get_no(date,'D1');
ADOTemp.Close;
if (t_cust_ttl.FieldByName('<27> <> <EFBFBD> ڱ<EFBFBD> ').AsString='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ') then
ADOTemp.SQL.Text:='update t_op_seae_edi set <20> <> <EFBFBD> ʱ<EFBFBD> <CAB1> <EFBFBD> ='''+dbno+''' where ί<> з<EFBFBD> <D0B7> ͷ<EFBFBD> ='''+t_cust_ttl.fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString+''' and <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >='''+formatdatetime('yyyy-mm-dd',betd)+''' and <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(<28> <> <EFBFBD> ʱ<EFBFBD> <CAB1> <EFBFBD> ,'''')='''' '
else
ADOTemp.SQL.Text:='update t_op_seae_edi set <20> <> <EFBFBD> ʱ<EFBFBD> <CAB1> <EFBFBD> ='''+dbno+''' where ί<> з<EFBFBD> <D0B7> ͷ<EFBFBD> ='''+t_cust_ttl.fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString+''' and ¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >='''+formatdatetime('yyyy-mm-dd',betd)+''' and ¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(<28> <> <EFBFBD> ʱ<EFBFBD> <CAB1> <EFBFBD> ,'''')='''' ';
ADOTemp.ExecSQL;
ADOTemp.Close;
ADOTemp.SQL.Text:='select sum(isnull(Ӧ<> <D3A6> ,0)) <20> <> <EFBFBD> <EFBFBD> ,sum(isnull(<28> ɱ<EFBFBD> ,0)) <20> ɱ<EFBFBD> from t_op_seae_edi where <20> <> <EFBFBD> ʱ<EFBFBD> <CAB1> <EFBFBD> ='''+dbno+''' ';
ADOTemp.Open;
t_cd_dui.Insert;
t_cd_dui['<27> <> <EFBFBD> ʱ<EFBFBD> <CAB1> <EFBFBD> ']:=dbno;
t_cd_dui['<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ']:=t_cust_ttl['<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> '];
t_cd_dui['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']:=t_cust_ttl['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '];
t_cd_dui['<27> <> ֵ<EFBFBD> <D6B5> ʽ <27> <> ֵ<EFBFBD> <D6B5> ʽ
t_cd_dui['<27> <> <EFBFBD> ڱ<EFBFBD> ']:=t_cust_ttl['<27> <> <EFBFBD> ڱ<EFBFBD> '];
t_cd_dui['<27> <> <EFBFBD> <EFBFBD> ']:=ADOTemp['<27> <> <EFBFBD> <EFBFBD> '];
t_cd_dui['<27> ɱ<EFBFBD> ']:=ADOTemp['<27> ɱ<EFBFBD> '];
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('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ');
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.<2E> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ) <20> ͻ<EFBFBD> <CDBB> <EFBFBD> Դ,(select TOP 1 DSCustomerGid FROM CANGDAN_CUSTOMER WHERE CUSTOMERNAME=t_cd_dui.<2E> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ) CUSTID from t_cd_dui where <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+wwDBComboBox1.Text+'''');
if (Edit2.Text<>'') then
t_cd_dui.SQL.Add(' and <20> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> like ''%'+Edit2.Text+'%''');
t_cd_dui.Open;
end;
procedure Tfrm_rp_cd_hs.t_cd_duiAfterInsert(DataSet: TDataSet);
begin
t_cd_dui['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']:=date;
t_cd_dui['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ']:=employee;
t_cd_dui['<27> <> <EFBFBD> <EFBFBD> ״̬']:='<27> ½<EFBFBD> ';
t_cd_dui['<27> <> <EFBFBD> <EFBFBD> ']:=wwDBComboBox20.Text;
t_cd_dui['<27> ¶<EFBFBD> ']:=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:='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> Ժ<D4BA> <F3A1A3A1> <EFBFBD> ';
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('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString+wwDBComboBox20.text+'<27> <> '+wwDBComboBox1.text+'<27> <> .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:='<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> Ժ<D4BA> <F3A1A3A1> <EFBFBD> ';
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('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> '+t_cd_dui.fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString+' δƥ<CEB4> <C6A5> D7<44> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ,<2C> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ҵ<EFBFBD> <D2B5> <EFBFBD> <EFBFBD> ');
end else begin
custname:=d7temp.fieldbyname('SHORTNAME').AsString;
if (t_cd_dui.FieldByName('<27> <> <EFBFBD> <EFBFBD> ״̬').AsString<>'<27> <> <EFBFBD> <EFBFBD> ҵ<EFBFBD> <D2B5> ') 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']:='ɢ<> <C9A2> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ';
d7Query1['BSSTATUS']:=false;
d7Query1['FEESTATUS']:=false;
d7Query1['BSDATE']:=Date;
d7Query1['ACCDATE']:=FormatDateTime('YYYY-MM',Date);
d7Query1['CUSTNO']:=t_cd_dui['<27> <> <EFBFBD> ʱ<EFBFBD> <CAB1> <EFBFBD> '];
d7Query1['CUSTOMERNAME']:=custname;
d7Query1['BSSOURCE']:='<27> յ<EFBFBD> <D5B5> 걨';
d7Query1['BSSOURCEDETAIL']:='<27> յ<EFBFBD> <D5B5> ½<EFBFBD> ';
d7Query1['OP']:=t_cd_dui['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '];
d7Query1['CUSTSERVICE']:=t_cd_dui['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '];
d7Query1['SALE']:=t_cd_dui['<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> '];
d7Query1['CORPID']:='Comcab2d43f60454327af30a131fc1d3abd';
d7Query1['ETD']:=Date;
d7Query1['REMARK']:=t_cd_dui.fieldbyname('<27> ͻ<EFBFBD> <CDBB> <EFBFBD> <EFBFBD> <EFBFBD> ').AsString+' <20> ½<EFBFBD> '+wwDBComboBox20.Text+'<27> <> '+wwDBComboBox1.Text+'<27> <> <20> յ<EFBFBD> <D5B5> ˵<EFBFBD> '+t_cd_dui.fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').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']:='<27> յ<EFBFBD> <D5B5> <EFBFBD> ';
d7Query2['FEEDESCRIPTION']:='CDF';
d7Query2['CUSTOMERTYPE']:='ί<> е <EFBFBD> λ';
d7Query2['CUSTOMERNAME']:=custname;
d7Query2['UNIT']:='<27> <> Ʊ';
d7Query2['UNITPRICE']:=t_cd_dui['<27> <> <EFBFBD> <EFBFBD> '];
d7Query2['QUANTITY']:=1;
d7Query2['AMOUNT']:=t_cd_dui['<27> <> <EFBFBD> <EFBFBD> '];
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['<27> <> <EFBFBD> <EFBFBD> '];
d7Query2['ACCTAXRATE']:=0;
d7Query2['TAX']:=0;
d7Query2['ORDERSETTLEMENT']:=0;
d7Query2['TAXUNITPRICE']:=t_cd_dui['<27> <> <EFBFBD> <EFBFBD> '];
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']:='<27> յ<EFBFBD> <D5B5> <EFBFBD> ';
d7Query2['FEEDESCRIPTION']:='CDF';
d7Query2['CUSTOMERTYPE']:='<27> <> <EFBFBD> <EFBFBD> ';
d7Query2['CUSTOMERNAME']:='<27> <> <EFBFBD> <EFBFBD> ';
d7Query2['UNIT']:='<27> <> Ʊ';
d7Query2['UNITPRICE']:=t_cd_dui['<27> ɱ<EFBFBD> '];
d7Query2['QUANTITY']:=1;
d7Query2['AMOUNT']:=t_cd_dui['<27> ɱ<EFBFBD> '];
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['<27> ɱ<EFBFBD> '];
d7Query2['ACCTAXRATE']:=0;
d7Query2['TAX']:=0;
d7Query2['ORDERSETTLEMENT']:=0;
d7Query2['TAXUNITPRICE']:=t_cd_dui['<27> ɱ<EFBFBD> '];
d7Query2['ORDERINVSETTLEMENT']:=0;
d7Query2.Post;
t_cd_dui.Edit;
t_cd_dui['<27> <> <EFBFBD> <EFBFBD> ״̬']:='<27> <> <EFBFBD> <EFBFBD> ҵ<EFBFBD> <D2B5> ';
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 <20> ɱ<EFBFBD> =c.<2E> ɱ<EFBFBD> from t_op_seae_edi b');
aQuery.SQL.Add(' left join op_cd_chengben c on (c.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> <EFBFBD> <EFBFBD> )');
aQuery.SQL.Add(' where b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >='''+formatdatetime('yyyy-mm-dd',betd)+''' and b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(b.<2E> ɱ<EFBFBD> ,0)=0 and c.<2E> <> <EFBFBD> <EFBFBD> is not null');
aQuery.SQL.Add(' AND c.<2E> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' AND c.<2E> ¶<EFBFBD> ='''+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(<28> <> <EFBFBD> ˱<EFBFBD> ־,''0'')=''0'' and <20> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' and <20> ¶<EFBFBD> ='''+wwDBComboBox1.Text+''' ';
t_op_notdui.Open;
end;
ShowMessage('<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ɣ <EFBFBD> ');
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 <20> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> 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 <20> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> =:<3A> ᵥ<EFBFBD> <E1B5A5> ';
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 ¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >='''+formatdatetime('yyyy-mm-dd',betd)+'''');
t_op_seae.SQL.Add(' and ¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <'''+formatdatetime('yyyy-mm-dd',eetd)+'''');
if (RxDBLookupCombo3.DisplayValue<>'') then
t_op_seae.SQL.Add(' and <20> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ='''+RxDBLookupCombo3.Text+'''');
if (Edit1.Text<>'') then
t_op_seae.SQL.Add(' and ί<> з<EFBFBD> <D0B7> ͷ<EFBFBD> like ''%'+Edit1.Text+'%''');
if (Edit4.Text<>'') then
t_op_seae.SQL.Add(' and <20> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> like ''%'+Edit4.Text+'%''');
if (Edit5.Text<>'') then
t_op_seae.SQL.Add(' and <20> <> <EFBFBD> <EFBFBD> ='''+Edit5.Text+'''');
if (Edit6.Text<>'') then
t_op_seae.SQL.Add(' and <20> <> ע like ''%'+Edit6.Text+'%''');
if (Edit7.Text<>'') then
t_op_seae.SQL.Add(' and ί<> з<EFBFBD> <D0B7> ͷ<EFBFBD> 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 <20> <> <EFBFBD> ˱<EFBFBD> ־=''0'',<2C> <> <EFBFBD> <EFBFBD> ='''' where <20> <> <EFBFBD> <EFBFBD> ='''+t_op_seae.fieldbyname('<27> <> <EFBFBD> <EFBFBD> ').asstring+''' ';
aQuery.ExecSQL;
t_op_seae.Edit;
t_op_seae['<27> ɱ<EFBFBD> ']:=0;
t_op_seae.Post;
end;
finally
FreeAndNil(aQuery);
t_op_seae.EnableControls;
end;
ShowMessage('ȡ<> <C8A1> ƥ<EFBFBD> <C6A5> <EFBFBD> <EFBFBD> <EFBFBD> ɣ <EFBFBD> ');
end;
procedure Tfrm_rp_cd_hs.bsSkinButton18Click(Sender: TObject);
begin
if t_op_notdui.FieldByName('<27> <> <EFBFBD> ˱<EFBFBD> ־').AsString='1' then begin
showmessage('<27> <> ƥ<EFBFBD> 䲻<EFBFBD> <E4B2BB> <EFBFBD> <EFBFBD> ,ɾ<> <C9BE> <EFBFBD> <EFBFBD> ');
Exit;
end;
if MessageDlg('ȷ<> <C8B7> Ҫɾ<D2AA> <C9BE> ѡ <EFBFBD> е <EFBFBD> <D0B5> ᵥ<EFBFBD> ţ<EFBFBD> '+t_op_notdui.fieldbyname('<27> ᵥ<EFBFBD> <E1B5A5> ').AsString+'<27> <> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> ',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('<27> <> ѡ <EFBFBD> <D1A1> Ҫ<EFBFBD> ĵ<DEB8> ҵ<EFBFBD> <EFBFBD> ');
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 <20> ɱ<EFBFBD> =c.<2E> ɱ<EFBFBD> ,<2C> <> <EFBFBD> <EFBFBD> =c.<2E> <> <EFBFBD> <EFBFBD> from t_op_seae_edi b');
ADOTemp.SQL.Add(' left join op_cd_chengben c on (c.<2E> <> <EFBFBD> <EFBFBD> =b.<2E> <> <EFBFBD> <EFBFBD> )');
ADOTemp.SQL.Add(' where b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> >='''+formatdatetime('yyyy-mm-dd',betd)+''' and b.¼<> <C2BC> <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> <'''+formatdatetime('yyyy-mm-dd',eetd)+''' and isnull(b.<2E> ɱ<EFBFBD> ,0)=0 and isnull(b.<2E> <> <EFBFBD> ᵥ<EFBFBD> <E1B5A5> ,'''')='''' and c.id='+t_op_notdui.fieldbyname('id').AsString);
ADOTemp.SQL.Add(' AND c.<2E> <> <EFBFBD> <EFBFBD> ='''+wwDBComboBox20.Text+''' AND c.<2E> ¶<EFBFBD> ='''+wwDBComboBox1.Text+'''');
ADOTemp.ExecSQL;
end;
t_op_notdui.Requery();
finally
t_op_notdui.EnableControls;
end;
end;
end.
