|
|
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>ʽ']:=t_cust_ttl['<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.
|
|
|
|